From 4a0fe24f394e9c5489bacaa5630b3cabefdf95e4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Jan 2011 11:42:22 -0400 Subject: use a newtype for Key should be more efficient --- BackendTypes.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/BackendTypes.hs b/BackendTypes.hs index c4927ab20..c0705a550 100644 --- a/BackendTypes.hs +++ b/BackendTypes.hs @@ -14,7 +14,7 @@ import Test.QuickCheck type KeyName = String type BackendName = String -data Key = Key (BackendName, KeyName) deriving (Eq, Ord) +newtype Key = Key (BackendName, KeyName) deriving (Eq, Ord) data Backend a = Backend { -- name of this backend -- cgit v1.2.3