Implememt -fdefer-type-errors (Trac #5624)
[ghc.git] / compiler / simplCore / CoreMonad.lhs
index c82a557..829c2ca 100644 (file)
@@ -184,7 +184,7 @@ lintPassResult dflags pass binds
        ; displayLintResults dflags pass warns errs binds  }
 
 displayLintResults :: DynFlags -> CoreToDo
-                   -> Bag Err.Message -> Bag Err.Message -> CoreProgram
+                   -> Bag Err.MsgDoc -> Bag Err.MsgDoc -> CoreProgram
                    -> IO ()
 displayLintResults dflags pass warns errs binds
   | not (isEmptyBag errs)