summaryrefslogtreecommitdiff
path: root/Types/Backend.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-31 04:11:39 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-31 04:11:58 -0400
commit4a02c2ea629e1825c824bcc09449806b12408699 (patch)
treefc00de3f710c2e2b2bbc6d4f99d576158648eb0b /Types/Backend.hs
parenta2ec2d3760f5ae17836ade3b0238dde7f9de5bd2 (diff)
type alias cleanup
Diffstat (limited to 'Types/Backend.hs')
-rw-r--r--Types/Backend.hs6
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