From ed341a2ae40be7d46b536cabf1cbac7450f3607e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Sun, 23 Jun 2013 12:54:17 +0100
Subject: [PATCH] Re-adjust whitespace

---
 compiler/main/DynFlags.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 7292ce5cd275..e1236840a0ad 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