diff options
Diffstat (limited to 'iserv/proxy-src')
| -rw-r--r-- | iserv/proxy-src/Remote.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/iserv/proxy-src/Remote.hs b/iserv/proxy-src/Remote.hs index 6b1d528e18..481d6acf7d 100644 --- a/iserv/proxy-src/Remote.hs +++ b/iserv/proxy-src/Remote.hs @@ -58,6 +58,7 @@ import Control.Monad import System.Environment import System.Exit import Text.Printf +import GHC.Fingerprint (getFileHash) import Data.Binary import qualified Data.ByteString as BS @@ -182,7 +183,7 @@ fwdLoadCall verbose _ remote msg = do reply =<< BS.readFile path loopLoad Have path remoteHash -> do - localHash <- sha256sum path + localHash <- getFileHash path reply =<< if localHash == remoteHash then return Nothing else Just <$> BS.readFile path |