[add Show and Typeable instances to Value
John Meacham <john@repetae.net>**20051011080038] hunk ./Fixer.hs 19
+import Data.Typeable
hunk ./Fixer.hs 26
-class Show a => Fixable a where
+class Fixable a where
hunk ./Fixer.hs 48
+    deriving(Typeable)
+
+instance Show a => Show (Value a) where
+    showsPrec _ (ConstValue a) = showString "<<" . shows a . showString ">>"
+    showsPrec _ (IV a) = showString "<<" . shows (hashUnique $ ident a) . showString ">>"