mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

recognise differently-named shaN programs

Browse source
This commit is contained in:
Fraser Tweedale 2011-04-08 10:08:11 +10:00
parent bd1bbc21fa
commit f5b2d650bb
3 changed files with 28 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Backend/SHA.hs
View file

@ -35,7 +35,7 @@ backends = catMaybes $ map genBackend [1, 256, 512, 224, 384]
genBackend :: SHASize -> Maybe (Backend Annex)
genBackend size
| supported size = Just b
| shaCommand size /= "" = Just b
| otherwise = Nothing
where
b = Backend.File.backend
@ -43,12 +43,14 @@ genBackend size
, getKey = keyValue size
, fsckKey = Backend.File.checkKey $ checkKeyChecksum size
}
supported 1 = SysConfig.sha1sum
supported 256 = SysConfig.sha256sum
supported 224 = SysConfig.sha224sum
supported 384 = SysConfig.sha384sum
supported 512 = SysConfig.sha512sum
supported _ = False
shaCommand :: SHASize -> String
shaCommand 1 = SysConfig.sha1
shaCommand 256 = SysConfig.sha256
shaCommand 224 = SysConfig.sha224
shaCommand 384 = SysConfig.sha384
shaCommand 512 = SysConfig.sha512
shaCommand _ = ""
shaName :: SHASize -> String
shaName size = "SHA" ++ show size
@ -63,7 +65,7 @@ shaN size file = do
then error $ command ++ " parse error"
else return $ head bits
where
command = "sha" ++ (show size) ++ "sum"
command = shaCommand size
{- A key is a checksum of its contents. -}
keyValue :: SHASize -> FilePath -> Annex (Maybe Key)