[add Show instances for IdMap and IdSet
John Meacham <john@repetae.net>**20061125122752] hunk ./E/LetFloat.hs 128
-instance Show IdSet where
-    showsPrec n is = showsPrec n $ map f (idSetToList is) where
-        f n =  maybe (toAtom ('x':show n)) (toAtom . show) (fromId n)
hunk ./Name/Id.hs 31
+import Atom
hunk ./Name/Id.hs 36
+import Name.Name
hunk ./Name/Id.hs 62
-    deriving(Typeable,Monoid,HasSize,SetLike,BuildSet (Id,a),MapLike Id a,Functor,FunctorM,Show,IsEmpty,Eq,Ord)
+    deriving(Typeable,Monoid,HasSize,SetLike,BuildSet (Id,a),MapLike Id a,Functor,FunctorM,IsEmpty,Eq,Ord)
hunk ./Name/Id.hs 147
+instance Show IdSet where
+    showsPrec n is = showsPrec n $ map f (idSetToList is) where
+        f n =  maybe (toAtom ('x':show n)) (toAtom . show) (fromId n)
+
+instance Show v => Show (IdMap v) where
+    showsPrec n is = showsPrec n $ map f (idMapToList is) where
+        f (n,v) =  (maybe (toAtom ('x':show n)) (toAtom . show) (fromId n),v)
+