diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-31 11:42:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-31 11:42:22 -0400 |
| commit | 4a0fe24f394e9c5489bacaa5630b3cabefdf95e4 (patch) | |
| tree | fbdb543d88d4c6fd19075d2b29ac598ceeed10e8 | |
| parent | 1b0edc1ab2f3516dc532b0cf4ea39a0af2f6392f (diff) | |
use a newtype for Key
should be more efficient
| -rw-r--r-- | BackendTypes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |