File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -12,12 +12,12 @@ module Bot
1212import Bot.Alias
1313import Bot.Asciify
1414import Bot.Bttv
15- import Bot.Ffz
1615import Bot.Calc
1716import Bot.CopyPasta
1817import Bot.CustomCommand
1918import Bot.DocLoc
2019import Bot.Dubtrack
20+ import Bot.Ffz
2121import Bot.Friday
2222import Bot.Help
2323import Bot.Links
Original file line number Diff line number Diff line change @@ -72,8 +72,6 @@ bttvCommand =
7272 liftR (const $ selectEntities Proxy All ) $
7373 cmapR (T. concat . intersperse " " . map (bttvName . entityPayload)) sayMessage
7474
75-
76-
7775bttvUrlByName :: T. Text -> Effect (Maybe String )
7876bttvUrlByName name = do
7977 emote <-
Original file line number Diff line number Diff line change 55{-# LANGUAGE TupleSections #-}
66{-# LANGUAGE LambdaCase #-}
77
8- module Bot.Ffz (ffzUrlByName , ffzCommand , updateFfzEmotesCommand ) where
8+ module Bot.Ffz
9+ ( ffzUrlByName
10+ , ffzCommand
11+ , updateFfzEmotesCommand
12+ ) where
913
10- import Entity
14+ import Bot.Replies
1115import Data.Aeson.Types
12- import qualified Data.Text as T
13- import qualified Data.Map as M
16+ import Data.Functor
1417import qualified Data.HashMap.Strict as HM
15- import Text.InterpolatedString.QM
16- import qualified Network.URI.Encode as URI
17- import Reaction
18- import Transport
19- import Effect
20- import Data.Proxy
21- import Data.Maybe
22- import Property
2318import Data.List
19+ import qualified Data.Map as M
20+ import Data.Maybe
2421import Data.Ord
25- import Bot.Replies
26- import Data.Functor
22+ import Data.Proxy
23+ import qualified Data.Text as T
24+ import Effect
25+ import Entity
2726import HyperNerd.Comonad
27+ import qualified Network.URI.Encode as URI
28+ import Property
29+ import Reaction
30+ import Text.InterpolatedString.QM
31+ import Transport
2832
2933data FfzEmote = FfzEmote
3034 { ffzName :: T. Text
@@ -126,7 +130,6 @@ updateFfzEmotesCommand = onlyForTwitch f
126130 cleanFfzCache <> updateFfzGlobalEmotes <> updateFfzLocalEmotes <>
127131 Reaction (\ msg -> replyMessage (" FFZ cache has been updated" <$ msg))
128132
129-
130133ffzUrlByName :: T. Text -> Effect (Maybe String )
131134ffzUrlByName name = do
132135 emote <-
You can’t perform that action at this time.
0 commit comments