Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
6adb6009
Commit
6adb6009
authored
Oct 03, 2016
by
Andrey Mokhov
Browse files
Unify paths when printing progress info
parent
e0de0283
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Rules/Actions.hs
View file @
6adb6009
...
...
@@ -200,16 +200,15 @@ putProgressInfo :: String -> Action ()
putProgressInfo
msg
=
when
(
cmdProgressInfo
/=
None
)
$
putBuild
msg
-- | Render an action.
renderAction
::
String
->
String
->
String
->
String
renderAction
::
String
->
FilePath
->
FilePath
->
String
renderAction
what
input
output
=
case
cmdProgressInfo
of
Normal
->
renderBox
[
what
,
" input: "
++
input
,
" => output: "
++
output
]
Brief
->
"| "
++
what
++
": "
++
input
++
" => "
++
output
Unicorn
->
renderUnicorn
[
what
,
" input: "
++
input
,
" => output: "
++
output
]
Normal
->
renderBox
[
what
,
" input: "
++
i
,
" => output: "
++
o
]
Brief
->
"| "
++
what
++
": "
++
i
++
" => "
++
o
Unicorn
->
renderUnicorn
[
what
,
" input: "
++
i
,
" => output: "
++
o
]
None
->
""
where
i
=
unifyPath
input
o
=
unifyPath
output
-- | Render the successful build of a program
renderProgram
::
String
->
String
->
String
->
String
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment