diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-13 02:31:24 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-13 02:31:24 -0400 |
commit | d1071bd1fe879abb3ebb229f9347f7855a697b8c (patch) | |
tree | db9df662b58f2b0762252f4d22b5cb244c8be978 /Types.hs | |
parent | 490a3a828cbb5a4046178b36fc0f9fe0696d0e9d (diff) |
autobugfixing!
Converted Key to a real data type and caught all the places where I used
an unconverted filename as a key.
Had to loose some sanity checks around whether something is already
annexed, but I guess I can add those back other ways.
Diffstat (limited to 'Types.hs')
-rw-r--r-- | Types.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -16,7 +16,11 @@ data State = State { } deriving (Show) -- annexed filenames are mapped into keys -type Key = FilePath +data Key = Key String deriving (Eq) + +-- show a key to convert it to a string +instance Show Key where + show (Key v) = v -- this structure represents a key/value backend data Backend = Backend { |