[make printing of case statements a bit less verbose
John Meacham <john@repetae.net>**20061129081936] hunk ./E/Show.hs 207
-            let mbind | (isUsed && isNothing (eCaseDefault ec)) || dump FD.EVerbose = unparse db <+> text "<-"
+            let mbind | isJust (eCaseDefault ec) = empty
+                      | (isUsed && isNothing (eCaseDefault ec)) || dump FD.EVerbose = text " " <> (if isUsed then id else (char '_' <>)) (unparse db) <+> text "<-"
hunk ./E/Show.hs 211
-                group ( nest 4 ( keyword "case" <+> mbind <+> scrut <+> keyword "of" <$>  (align $ vcat (alts'))) )
+                group ( nest 4 ( keyword "case" <> mbind <+> scrut <+> keyword "of" <$>  (align $ vcat (alts'))) )