File tree Expand file tree Collapse file tree 2 files changed +2
-3
lines changed Expand file tree Collapse file tree 2 files changed +2
-3
lines changed Original file line number Diff line number Diff line change @@ -12,6 +12,7 @@ module Bot.CustomCommand
1212 ) where
1313
1414import Bot.Expr
15+ import Bot.Flip
1516import Bot.Replies
1617import Command
1718import Control.Monad
@@ -30,7 +31,6 @@ import Property
3031import Reaction
3132import Text.InterpolatedString.QM
3233import Transport
33- import Bot.Flip
3434
3535data CustomCommand = CustomCommand
3636 { customCommandName :: T. Text
Original file line number Diff line number Diff line change 11module Bot.Flip where
22
33import qualified Data.Map as M
4- import qualified Data.Text as T
54import Data.Maybe
5+ import qualified Data.Text as T
66
77-- https://github.com/doherty/Text-UpsideDown/blob/master/lib/Text/UpsideDown.pm
88-- http://www.fileformat.info/convert/text/upside-down-map.htm
9-
109flipText :: T. Text -> T. Text
1110flipText = T. map (\ x -> fromMaybe x $ M. lookup x table) . T. reverse
1211
You can’t perform that action at this time.
0 commit comments