hlint
This commit is contained in:
parent
f5b1c3841e
commit
72ec0ab736
12 changed files with 18 additions and 17 deletions
|
@ -62,7 +62,7 @@ query ch send receive = do
|
|||
s <- readMVar ch
|
||||
restartable s (send $ coProcessTo s) $ const $
|
||||
restartable s (hFlush $ coProcessTo s) $ const $
|
||||
restartable s (receive $ coProcessFrom s) $
|
||||
restartable s (receive $ coProcessFrom s)
|
||||
return
|
||||
where
|
||||
restartable s a cont
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue