[commit: ghc] wip/nfs-locking: Fix formatting in renderAction. (14e5009)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:10:00 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/14e50095ba46d4ab28cffda306008c41b00167e7/ghc

>---------------------------------------------------------------

commit 14e50095ba46d4ab28cffda306008c41b00167e7
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Thu Jan 14 14:19:54 2016 +0000

    Fix formatting in renderAction.
    
    [skip ci]


>---------------------------------------------------------------

14e50095ba46d4ab28cffda306008c41b00167e7
 src/Base.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Base.hs b/src/Base.hs
index be3ff1b..27fe5c1 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -145,12 +145,12 @@ putError msg = do
 renderAction :: String -> String -> String -> String
 renderAction what input output = case buildInfo of
     Normal -> renderBox [ what
-                        , "     input:" ++ input
-                        , " => output:" ++ output ]
+                        , "     input: " ++ input
+                        , " => output: " ++ output ]
     Brief  -> "> " ++ what ++ ": " ++ input ++ " => " ++ output
     Pony   -> renderPony [ what
-                         , "     input:" ++ input
-                         , " => output:" ++ output ]
+                         , "     input: " ++ input
+                         , " => output: " ++ output ]
     Dot    -> "."
     None   -> ""
 



More information about the ghc-commits mailing list