Skip to content

Commit 1768972

Browse files
committed
(#598) Fix hindent remarks
1 parent 7d22554 commit 1768972

File tree

2 files changed

+6
-4
lines changed

2 files changed

+6
-4
lines changed

src/Bot/CustomCommand.hs

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -10,24 +10,24 @@ module Bot.CustomCommand
1010
, timesCustomCommand
1111
) where
1212

13+
import Bot.Expr
1314
import Bot.Replies
1415
import Command
1516
import Control.Monad
1617
import Control.Monad.Trans.Maybe
18+
import Data.Functor.Compose
1719
import qualified Data.Map as M
1820
import Data.Maybe
1921
import Data.Proxy
2022
import qualified Data.Text as T
2123
import Data.Time
2224
import Effect
2325
import Entity
26+
import HyperNerd.Parser
2427
import Property
2528
import Reaction
2629
import Text.InterpolatedString.QM
2730
import Transport
28-
import Data.Functor.Compose
29-
import HyperNerd.Parser
30-
import Bot.Expr
3131

3232
data CustomCommand = CustomCommand
3333
{ customCommandName :: T.Text
@@ -181,7 +181,8 @@ expandVars vars = T.concat . map (evalExpr vars)
181181

182182
-- TODO(#598): reimplement expandCustomCommandVars with Bot.Expr when it's ready
183183
expandCustomCommandVars ::
184-
Message (Command T.Text, Entity CustomCommand) -> Effect (Either String CustomCommand)
184+
Message (Command T.Text, Entity CustomCommand)
185+
-> Effect (Either String CustomCommand)
185186
expandCustomCommandVars Message { messageSender = sender
186187
, messageContent = (Command {commandArgs = args}, Entity {entityPayload = customCommand})
187188
} = do

src/Reaction.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,5 @@
11
{-# LANGUAGE TupleSections #-}
2+
23
module Reaction where
34

45
import Data.Functor

0 commit comments

Comments
 (0)