X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=f0c1111898b54213407adbd520516cbd929f4ba9;hp=70ddd6adb8e02ca27aaf58c31633336118cb48f9;hb=478e69b303eb2e653a2ebf5c888b5efdfef1fb9d;hpb=66a733f23eebbd69f6e2d00a9f73c4d5541b5c39

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index 70ddd6a..f0c1111 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -1132,7 +1132,7 @@ hscTcExpr	-- Typecheck an expression (but don't run it)
 hscTcExpr hsc_env expr = runHsc hsc_env $ do
     maybe_stmt <- hscParseStmt expr
     case maybe_stmt of
-      Just (L _ (ExprStmt expr _ _)) ->
+      Just (L _ (ExprStmt expr _ _ _)) ->
           ioMsgMaybe $ tcRnExpr hsc_env (hsc_IC hsc_env) expr
       _ -> 
           liftIO $ throwIO $ mkSrcErr $ unitBag $