squash warning

This commit is contained in:
Joey Hess 2013-11-12 02:41:51 -04:00
parent d40d871936
commit 014d6d4f31

View file

@ -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