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

Remove deprecated comment

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
>>= lift . putStrLn . (++ ' ':message)
{- Not using the previous to minimize the duration mServer gets locked -}
exec :: (Server.T -> IO (Server.T, a)) -> T a
exec f = do
Context {mServer} <- ask