Skip to content

Commit aa57ff1

Browse files
committed
(#794) Fix hindent remarks
1 parent 03c2c7b commit aa57ff1

3 files changed

Lines changed: 19 additions & 18 deletions

File tree

src/Bot.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,12 +12,12 @@ module Bot
1212
import Bot.Alias
1313
import Bot.Asciify
1414
import Bot.Bttv
15-
import Bot.Ffz
1615
import Bot.Calc
1716
import Bot.CopyPasta
1817
import Bot.CustomCommand
1918
import Bot.DocLoc
2019
import Bot.Dubtrack
20+
import Bot.Ffz
2121
import Bot.Friday
2222
import Bot.Help
2323
import Bot.Links

src/Bot/Bttv.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff 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-
7775
bttvUrlByName :: T.Text -> Effect (Maybe String)
7876
bttvUrlByName name = do
7977
emote <-

src/Bot/Ffz.hs

Lines changed: 18 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -5,26 +5,30 @@
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
1115
import Data.Aeson.Types
12-
import qualified Data.Text as T
13-
import qualified Data.Map as M
16+
import Data.Functor
1417
import 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
2318
import Data.List
19+
import qualified Data.Map as M
20+
import Data.Maybe
2421
import 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
2726
import 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

2933
data 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-
130133
ffzUrlByName :: T.Text -> Effect (Maybe String)
131134
ffzUrlByName name = do
132135
emote <-

0 commit comments

Comments
 (0)