diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-23 12:54:17 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-23 12:54:17 +0100 |
| commit | ed341a2ae40be7d46b536cabf1cbac7450f3607e (patch) | |
| tree | 12a5f9e00318143fbe9dd1b1bcba30cdaac64534 /compiler/main | |
| parent | f81e14bb14e459cdd59ea232f7c711827be85dd6 (diff) | |
| download | haskell-ed341a2ae40be7d46b536cabf1cbac7450f3607e.tar.gz | |
Re-adjust whitespace
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/DynFlags.hs | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 7292ce5cd2..e1236840a0 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1383,16 +1383,17 @@ defaultFatalMessager = hPutStrLn stderr defaultLogAction :: LogAction defaultLogAction dflags severity srcSpan style msg = case severity of - SevOutput -> printSDoc msg style - SevDump -> printSDoc (msg $$ blankLine) style + SevOutput -> printSDoc msg style + SevDump -> printSDoc (msg $$ blankLine) style SevInteractive -> putStrSDoc msg style - SevInfo -> printErrs msg style - SevFatal -> printErrs msg style - _ -> do hPutChar stderr '\n' - printErrs (mkLocMessage severity srcSpan msg) style - -- careful (#2302): printErrs prints in UTF-8, whereas - -- converting to string first and using hPutStr would - -- just emit the low 8 bits of each unicode char. + SevInfo -> printErrs msg style + SevFatal -> printErrs msg style + _ -> do hPutChar stderr '\n' + printErrs (mkLocMessage severity srcSpan msg) style + -- careful (#2302): printErrs prints in UTF-8, + -- whereas converting to string first and using + -- hPutStr would just emit the low 8 bits of + -- each unicode char. where printSDoc = defaultLogActionHPrintDoc dflags stdout printErrs = defaultLogActionHPrintDoc dflags stderr putStrSDoc = defaultLogActionHPutStrDoc dflags stdout |