try again at forcing file read while hashing

1 files changed, 7 insertions, 2 deletions

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