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.

1 files changed, 5 insertions, 1 deletions

diff --git a/Types.hs b/Types.hs
index 73492dfc3..9b0bb00fd 100644
--- a/Types.hs
+++ b/Types.hs
@@ -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 {