[improve show instance for demand environments
John Meacham <john@repetae.net>**20060718022553] hunk ./E/Demand.hs 17
+import Data.List
hunk ./E/Demand.hs 30
-import Info.Types
hunk ./E/Demand.hs 31
+import Info.Types
hunk ./E/Demand.hs 78
-    showsPrec _ (DemandEnv m Absent) = pprint m
+    showsPrec _ (DemandEnv m Absent) = showString "{" . foldr (.) id (intersperse (showString ",") [ showString (pprint t) . showString " -> " . shows v | (t,v) <- Map.toList m]) . showString "}"