diff options
| -rw-r--r-- | Backend/Hash.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Backend/Hash.hs b/Backend/Hash.hs index d9a1bbc97..9cef3cae1 100644 --- a/Backend/Hash.hs +++ b/Backend/Hash.hs @@ -129,15 +129,15 @@ hashFile hash file filesize = do showAction "checksum" liftIO $ go hash where - go (SHAHash hashsize) = case shaCommand hashsize filesize of + go (SHAHash hashsize) = case shaHasher hashsize filesize of Left sha -> sha <$> L.readFile file Right command -> either error return =<< externalSHA command hashsize file go (SkeinHash hashsize) = skeinHasher hashsize <$> L.readFile file -shaCommand :: HashSize -> Integer -> Either (L.ByteString -> String) String -shaCommand hashsize filesize +shaHasher :: HashSize -> Integer -> Either (L.ByteString -> String) String +shaHasher hashsize filesize | hashsize == 1 = use SysConfig.sha1 sha1 | hashsize == 256 = use SysConfig.sha256 sha256 | hashsize == 224 = use SysConfig.sha224 sha224 |