hanafuda/server
1
1
Fork 0
Code Issues Pull requests Releases Wiki Activity

Remove deprecated comment

Browse source
This commit is contained in:
Tissevert 2019-11-18 17:06:33 +01:00
parent 25bcf0631c
commit a07285c7fc
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/App.hs
View file

@ -36,7 +36,6 @@ debug message =
show <$> asks sessionID show <$> asks sessionID
>>= lift . putStrLn . (++ ' ':message) >>= lift . putStrLn . (++ ' ':message)
{- Not using the previous to minimize the duration mServer gets locked -}
exec :: (Server.T -> IO (Server.T, a)) -> T a exec :: (Server.T -> IO (Server.T, a)) -> T a
exec f = do exec f = do
Context {mServer} <- ask Context {mServer} <- ask