diff options
Diffstat (limited to 'testsuite/tests/callarity/unittest/CallArity1.hs')
-rw-r--r-- | testsuite/tests/callarity/unittest/CallArity1.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/callarity/unittest/CallArity1.hs b/testsuite/tests/callarity/unittest/CallArity1.hs index 64800dd243..0a1516879b 100644 --- a/testsuite/tests/callarity/unittest/CallArity1.hs +++ b/testsuite/tests/callarity/unittest/CallArity1.hs @@ -172,7 +172,7 @@ main = do dflags <- getSessionDynFlags logger <- getLogger liftIO $ forM_ exprs $ \(n,e) -> do - case lintExpr dflags [f,scrutf,scruta] e of + case lintExpr dflags mempty [f,scrutf,scruta] e of Just errs -> putMsg logger dflags (pprMessageBag errs $$ text "in" <+> text n) Nothing -> return () putMsg logger dflags (text n Outputable.<> char ':') |