test revert "force hash to finish with file before returning"

This reverts commit d11b032bd86ebe69f1d08e382bd83370db8ea9b9.

This seems to have caused a memory leak.

1 files changed, 2 insertions, 4 deletions

diff --git a/Backend/Hash.hs b/Backend/Hash.hs
index 363467a2a..ee370f5b1 100644
--- a/Backend/Hash.hs
+++ b/Backend/Hash.hs
@@ -5,7 +5,7 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-{-# LANGUAGE BangPatterns, CPP #-}
+{-# LANGUAGE CPP #-}
 
 module Backend.Hash (
 	backends,
@@ -170,9 +170,7 @@ hashFile hash file filesize = go hash
 	go (SHA3Hash hashsize) = use (sha3Hasher hashsize)
 	go (SkeinHash hashsize) = use (skeinHasher hashsize)
 	
-	use hasher = liftIO $ do
-		!h <- hasher <$> L.readFile file
-		return h
+	use hasher = liftIO $ hasher <$> L.readFile file
 	
 	usehasher hashsize = case shaHasher hashsize filesize of
 		Left sha -> use sha