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

type alias cleanup

Browse source
This commit is contained in:
Joey Hess 2011-12-31 04:11:39 -04:00
parent a2ec2d3760
commit 4a02c2ea62
38 changed files with 129 additions and 122 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Backend/SHA.hs
View file

@ -21,21 +21,21 @@ type SHASize = Int
sizes :: [Int]
sizes = [256, 1, 512, 224, 384]
backends :: [Backend Annex]
backends :: [Backend]
backends = catMaybes $ map genBackend sizes ++ map genBackendE sizes
genBackend :: SHASize -> Maybe (Backend Annex)
genBackend :: SHASize -> Maybe Backend
genBackend size
| isNothing (shaCommand size) = Nothing
| otherwise = Just b
where
b = Types.Backend.Backend
b = Backend
{ name = shaName size
, getKey = keyValue size
, fsckKey = checkKeyChecksum size
}
genBackendE :: SHASize -> Maybe (Backend Annex)
genBackendE :: SHASize -> Maybe Backend
genBackendE size =
case genBackend size of
Nothing -> Nothing

6
Backend/URL.hs
View file

@ -14,11 +14,11 @@ import Common.Annex
import Types.Backend
import Types.Key
backends :: [Backend Annex]
backends :: [Backend]
backends = [backend]
backend :: Backend Annex
backend = Types.Backend.Backend {
backend :: Backend
backend = Backend {
name = "URL",
getKey = const (return Nothing),
fsckKey = const (return True)

6
Backend/WORM.hs
View file

@ -11,11 +11,11 @@ import Common.Annex
import Types.Backend
import Types.Key
backends :: [Backend Annex]
backends :: [Backend]
backends = [backend]
backend :: Backend Annex
backend = Types.Backend.Backend {
backend :: Backend
backend = Backend {
name = "WORM",
getKey = keyValue,
fsckKey = const (return True)