Garmelon/euph-api
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Run commands in new threads

Browse source
This commit is contained in:
Joscha 2018-02-19 23:10:21 +00:00
parent b2aee83b67
commit 1282cf4a62
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/EuphApi/Utils.hs
View file

@ -113,9 +113,9 @@ type CommandName = T.Text
-- | Runs a list of commands.
runCommands :: [Command b c] -> E.Message -> B.Bot b c ()
-- runCommands cs m = void $ sequence $ map ($m) cs
-- runCommands cs m = void . sequence $ cs <*> pure m
runCommands cs = void . sequence . sequence cs
-- runCommands cs m = mapM_ B.fork $ map ($m) cs
-- runCommands cs m = mapM_ B.fork $ cs <*> pure m
runCommands cs = mapM_ B.fork . sequence cs
withContent :: (T.Text -> a) -> E.Message -> a
withContent f = f . E.msgContent