X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmLint.hs;h=7069457a40e6d35e6d57d68256ba11161b21193c;hp=d8d6c9bb460e2916f4e15c79d38ab7d0f1e940d8;hb=bb66ce578f2ef5cbeb35de9719f0839a32fbeb35;hpb=fdd372f92ee59d474f7073ba8d8b8d41956a952b

diff --git a/compiler/cmm/CmmLint.hs b/compiler/cmm/CmmLint.hs
index d8d6c9b..7069457 100644
--- a/compiler/cmm/CmmLint.hs
+++ b/compiler/cmm/CmmLint.hs
@@ -122,7 +122,7 @@ lintCmmStmt (CmmStore l r) = do
   lintCmmExpr l
   lintCmmExpr r
   return ()
-lintCmmStmt (CmmCall _target _res args _) = mapM_ (lintCmmExpr.fst) args
+lintCmmStmt (CmmCall _target _res args _ _) = mapM_ (lintCmmExpr.fst) args
 lintCmmStmt (CmmCondBranch e _id)   = lintCmmExpr e >> checkCond e >> return ()
 lintCmmStmt (CmmSwitch e _branches) = do
   erep <- lintCmmExpr e