[add MapKey class to Util.YAML
John Meacham <john@repetae.net>**20100227081631
 Ignore-this: 60a6ec7559d5e3301b97453664ea0a1f
] hunk ./src/Util/YAML.hs 9
+class MapKey a where
+    showMapKey :: a -> String
+
+
+instance MapKey String where
+    showMapKey s = s
hunk ./src/Util/YAML.hs 29
-instance ToNode a => ToNode [(String,a)] where
-    toNode ns = Map [ (x,toNode y) | (x,y) <- ns ]
+instance (MapKey k,ToNode a) => ToNode [(k,a)] where
+    toNode ns = Map [ (showMapKey x,toNode y) | (x,y) <- ns ]
hunk ./src/Util/YAML.hs 32
-instance ToNode b => ToNode (M.Map String b) where
-    toNode mp = Map [(x, toNode y) | (x,y) <- M.toList mp]
+instance (MapKey k,ToNode b) => ToNode (M.Map k b) where
+    toNode mp = Map [(showMapKey x, toNode y) | (x,y) <- M.toList mp]