[project @ 2005-07-19 16:44:50 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stgSyn / CoreToStg.lhs

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index d241e58..781d6ed 100644 (file)
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -433,7 +433,7 @@ mkStgAltType scrut_ty alts
                ASSERT(null data_alts)
                PolyAlt
        where
-               (data_alts, deflt) = findDefault alts
+               (data_alts, _deflt) = findDefault alts
 \end{code}