From d1f87e8c8e0a49e864c97b18deb5f9f69613ae08 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 26 Feb 2016 13:30:38 -0400 Subject: [PATCH] test revert "force hash to finish with file before returning" This reverts commit 7482853ddddc21f2696dcfbc82d737f03032134a. This seems to have caused a memory leak. --- Backend/Hash.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Backend/Hash.hs b/Backend/Hash.hs index 363467a2a1..ee370f5b1e 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