squash warning
This commit is contained in:
parent
d40d871936
commit
014d6d4f31
1 changed files with 1 additions and 1 deletions
|
@ -228,7 +228,7 @@ processTranscript cmd opts input = do
|
|||
s <- hGetContents h
|
||||
v <- newEmptyMVar
|
||||
void $ forkIO $ do
|
||||
E.evaluate (length s)
|
||||
void $ E.evaluate (length s)
|
||||
putMVar v ()
|
||||
return $ do
|
||||
takeMVar v
|
||||
|
|
Loading…
Add table
Reference in a new issue