[show default case binding when it is used
John Meacham <john@repetae.net>**20060420044056] hunk ./E/Show.hs 38
-showId i = (text $ 'x':show i)
+showId i = (text $ 'v':show i)
hunk ./E/Show.hs 197
+            let ecb = eCaseBind ec
+                isUsed = tvrIdent ecb `member` (freeVars (caseBodies ec) :: IdSet)
+            db <- showTVr (if dump FD.EVerbose || isUsed then ecb else ecb { tvrIdent = 0 })
hunk ./E/Show.hs 203
-                    let ecb = eCaseBind ec
-
-                    db <- showTVr (if dump FD.EVerbose || (tvrIdent ecb `member` (freeVars e :: IdSet)) then ecb else ecb { tvrIdent = 0 })
hunk ./E/Show.hs 206
-            ecb <- showTVr (eCaseBind ec)
-            let mbind | dump FD.EVerbose && isNothing (eCaseDefault ec) = unparse ecb <+> text "<-"
+            let mbind | isUsed || dump FD.EVerbose = unparse db <+> text "<-"