diff options
Diffstat (limited to 'Types/Backend.hs')
| -rw-r--r-- | Types/Backend.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Types/Backend.hs b/Types/Backend.hs index 4f8226704..c9daa4671 100644 --- a/Types/Backend.hs +++ b/Types/Backend.hs @@ -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 |