X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;fp=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;h=781d6ed8d6f561dc330571d549146ab27bfa644a;hb=a7ecdf96844404b7bc8273d4ff6d85759278427c;hp=d241e5862b717edf023bf77eb15121a0ab2b837c;hpb=8a9aba1ff5e66aad02aba0997339ea6ec60d6b1e;p=ghc-hetmet.git

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index d241e58..781d6ed 100644
--- 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}