diff options
| -rw-r--r-- | compiler/GHC/Cmm/Lint.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Lint.hs b/compiler/GHC/Cmm/Lint.hs index 8b4b1cefb0..af27e5932a 100644 --- a/compiler/GHC/Cmm/Lint.hs +++ b/compiler/GHC/Cmm/Lint.hs @@ -50,7 +50,8 @@ cmmLintGraph platform g = runCmmLint platform lintCmmGraph g runCmmLint :: OutputableP Platform a => Platform -> (a -> CmmLint b) -> a -> Maybe SDoc runCmmLint platform l p = case unCL (l p) platform of - Left err -> Just (vcat [text "Cmm lint error:", + Left err -> Just (withPprStyle defaultDumpStyle $ vcat + [text "Cmm lint error:", nest 2 err, text "Program was:", nest 2 (pdoc platform p)]) |