[when in verbose mode, show type of case binder.
John Meacham <john@repetae.net>**20060411044018] hunk ./E/Show.hs 5
+import Maybe
hunk ./E/Show.hs 206
+            ecb <- showTVr (eCaseBind ec)
+            let mbind | dump FD.EVerbose && isNothing (eCaseDefault ec) = unparse ecb <+> text "<-"
+                      | otherwise = empty
hunk ./E/Show.hs 210
-                group ( nest 4 ( keyword "case" <+> scrut <+> keyword "of" <$>  (align $ vcat (alts'))) )
+                group ( nest 4 ( keyword "case" <+> mbind <+> scrut <+> keyword "of" <$>  (align $ vcat (alts'))) )