[handle default binding to an unboxed tuple properly in known-case optimization
John Meacham <john@repetae.net>**20070515040143] hunk ./E/SSimplify.hs 605
+            doCase e t b (a@(Alt LitCons { litName = n } _):_) (Just d) | Just _ <- fromUnboxedNameTuple n = do
+                mtick "E.Simplify.case-unboxed-no-default"
+                doCase e t b [a] Nothing
hunk ./E/SSimplify.hs 724
+    match m@LitCons { litName = c } [] (_,Just e) | Just _ <- fromUnboxedNameTuple c  = do
+        mtick (toAtom $ "E.Simplify.known-case._#" ++ show c )
+        return (Just ([],e))