Commit 6adb6009 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Unify paths when printing progress info

parent e0de0283
...@@ -200,16 +200,15 @@ putProgressInfo :: String -> Action () ...@@ -200,16 +200,15 @@ putProgressInfo :: String -> Action ()
putProgressInfo msg = when (cmdProgressInfo /= None) $ putBuild msg putProgressInfo msg = when (cmdProgressInfo /= None) $ putBuild msg
-- | Render an action. -- | Render an action.
renderAction :: String -> String -> String -> String renderAction :: String -> FilePath -> FilePath -> String
renderAction what input output = case cmdProgressInfo of renderAction what input output = case cmdProgressInfo of
Normal -> renderBox [ what Normal -> renderBox [ what, " input: " ++ i, " => output: " ++ o ]
, " input: " ++ input Brief -> "| " ++ what ++ ": " ++ i ++ " => " ++ o
, " => output: " ++ output ] Unicorn -> renderUnicorn [ what, " input: " ++ i, " => output: " ++ o ]
Brief -> "| " ++ what ++ ": " ++ input ++ " => " ++ output
Unicorn -> renderUnicorn [ what
, " input: " ++ input
, " => output: " ++ output ]
None -> "" None -> ""
where
i = unifyPath input
o = unifyPath output
-- | Render the successful build of a program -- | Render the successful build of a program
renderProgram :: String -> String -> String -> String renderProgram :: String -> String -> String -> String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment