mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use a newtype for Key

Browse source 
should be more efficient
This commit is contained in:
Joey Hess 2011-01-31 11:42:22 -04:00
parent 1b0edc1ab2
commit 4a0fe24f39
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
BackendTypes.hs
View file

@ -14,7 +14,7 @@ import Test.QuickCheck
type KeyName = String type KeyName = String
type BackendName = String type BackendName = String
data Key = Key (BackendName, KeyName) deriving (Eq, Ord) newtype Key = Key (BackendName, KeyName) deriving (Eq, Ord)
data Backend a = Backend { data Backend a = Backend {
-- name of this backend -- name of this backend