diff options
| author | Moritz Angermann <moritz.angermann@gmail.com> | 2017-04-17 12:28:22 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-04-17 20:34:40 -0400 |
| commit | 5a210032d4b9dcc644a5557eb4144445f660ea27 (patch) | |
| tree | 74e099548efb36f7fe21a44ac70607a2e3305184 /iserv/proxy-src | |
| parent | 1cc82d38759c7a5f527ccc6cb514b8ba576cc3d1 (diff) | |
| download | haskell-5a210032d4b9dcc644a5557eb4144445f660ea27.tar.gz | |
[iserv] drop cryptonite dependency.
Reviewers: bgamari, austin
Reviewed By: bgamari
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3462
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 |