File tree Expand file tree Collapse file tree 2 files changed +6
-4
lines changed Expand file tree Collapse file tree 2 files changed +6
-4
lines changed Original file line number Diff line number Diff line change @@ -10,24 +10,24 @@ module Bot.CustomCommand
1010 , timesCustomCommand
1111 ) where
1212
13+ import Bot.Expr
1314import Bot.Replies
1415import Command
1516import Control.Monad
1617import Control.Monad.Trans.Maybe
18+ import Data.Functor.Compose
1719import qualified Data.Map as M
1820import Data.Maybe
1921import Data.Proxy
2022import qualified Data.Text as T
2123import Data.Time
2224import Effect
2325import Entity
26+ import HyperNerd.Parser
2427import Property
2528import Reaction
2629import Text.InterpolatedString.QM
2730import Transport
28- import Data.Functor.Compose
29- import HyperNerd.Parser
30- import Bot.Expr
3131
3232data 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
183183expandCustomCommandVars ::
184- Message (Command T. Text , Entity CustomCommand ) -> Effect (Either String CustomCommand )
184+ Message (Command T. Text , Entity CustomCommand )
185+ -> Effect (Either String CustomCommand )
185186expandCustomCommandVars Message { messageSender = sender
186187 , messageContent = (Command {commandArgs = args}, Entity {entityPayload = customCommand})
187188 } = do
Original file line number Diff line number Diff line change 11{-# LANGUAGE TupleSections #-}
2+
23module Reaction where
34
45import Data.Functor
You can’t perform that action at this time.
0 commit comments