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

6
Types/Backend.hs
View file

@ -11,7 +11,7 @@ module Types.Backend where
import Types.Key
data Backend a = Backend {
data BackendA a = Backend {
-- name of this backend
name :: String,
-- converts a filename to a key
@ -20,8 +20,8 @@ data Backend a = Backend {
fsckKey :: Key -> a Bool
}
instance Show (Backend a) where
instance Show (BackendA a) where
show backend = "Backend { name =\"" ++ name backend ++ "\" }"
instance Eq (Backend a) where
instance Eq (BackendA a) where
a == b = name a == name b