[don't perform case-of-case transformation when inner case is an unboxed tuple
John Meacham <john@repetae.net>**20070306054959] hunk ./E/E.hs 143
+fromUnboxedTuple :: Monad m => E -> m [E]
+fromUnboxedTuple (ELit LitCons { litName = n, litArgs = as }) | Just _ <- fromUnboxedNameTuple n = return as
+fromUnboxedTuple _ = fail "fromUnboxedTuple: not a tuple"
+
+isUnboxedTuple m = isJust (fromUnboxedTuple m)
hunk ./E/SSimplify.hs 590
-            doCase ic@ECase { eCaseType = it, eCaseScrutinee = e, eCaseBind =  b, eCaseAlts =  as, eCaseDefault =  d } t b' as' d' = do
+            doCase ic@ECase { eCaseType = it, eCaseScrutinee = e, eCaseBind =  b, eCaseAlts =  as, eCaseDefault =  d } t b' as' d' | not (isUnboxedTuple it) = do