diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-07 17:26:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-07 17:26:21 -0400 |
| commit | ea8ccaa3d5416044ca69e4a3dcb7b879aec0ff4c (patch) | |
| tree | f04998a4a1500d47f150dead5abadd9e0d110c61 /TypeInternals.hs | |
| parent | 55b92860ceb099614ac9ebe4c37e92b57ad6a430 (diff) | |
rough in fsck
Diffstat (limited to 'TypeInternals.hs')
| -rw-r--r-- | TypeInternals.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TypeInternals.hs b/TypeInternals.hs index 46c92cb59..4b5cff9d9 100644 --- a/TypeInternals.hs +++ b/TypeInternals.hs @@ -39,7 +39,7 @@ type Annex = StateT AnnexState IO -- annexed filenames are mapped through a backend into keys type KeyName = String type BackendName = String -data Key = Key (BackendName, KeyName) deriving (Eq) +data Key = Key (BackendName, KeyName) deriving (Eq, Ord) -- constructs a key in a backend genKey :: Backend -> KeyName -> Key |