From bc64d3c693f83ec66b99d87c9e6be1f65553354b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Oct 2013 22:32:44 -0400 Subject: better name --- Backend/Hash.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Backend') 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 -- cgit v1.2.3