X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FstgSyn%2FStgLint.lhs;h=f2cecf9b0110f073e43cdb189d321194dc87be8b;hb=9d0c8f842e35dde3d570580cf62a32779f66a6de;hp=9e57f9f8f6986139a6cbba07fc2f45bbed9946db;hpb=ab1d5052de53479377c961d1e966f0cf0b82c592;p=ghc-hetmet.git

diff --git a/compiler/stgSyn/StgLint.lhs b/compiler/stgSyn/StgLint.lhs
index 9e57f9f..f2cecf9 100644
--- a/compiler/stgSyn/StgLint.lhs
+++ b/compiler/stgSyn/StgLint.lhs
@@ -191,7 +191,7 @@ lintStgExpr (StgLetNoEscape _ _ binds body) = do
 lintStgExpr (StgSCC _ expr) = lintStgExpr expr
 
 lintStgExpr e@(StgCase scrut _ _ bndr _ alts_type alts) = runMaybeT $ do
-    MaybeT $ lintStgExpr scrut
+    _ <- MaybeT $ lintStgExpr scrut
 
     MaybeT $ liftM Just $
      case alts_type of