[commit: ghc] wip/nfs-locking: Fix formatting in renderAction. (14e5009)
git at git.haskell.org
git at git.haskell.org
Fri Oct 27 00:39:47 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