Improve logging messages

This commit is contained in:
Julian Ospald 2020-03-17 18:39:41 +01:00
parent fcb7129251
commit ee570c024c

View File

@ -619,7 +619,7 @@ main = do
VLeft (V (BuildFailed tmpdir e)) -> VLeft (V (BuildFailed tmpdir e)) ->
runLogger runLogger
($(logError) [i|Build failed with #{e} ($(logError) [i|Build failed with #{e}
Check the logs at ~/ghcup/logs and the build directory #{tmpdir} for more clues.|] Check the logs at ~/.ghcup/logs and the build directory #{tmpdir} for more clues.|]
) )
>> exitFailure >> exitFailure
VLeft e -> do VLeft e -> do
@ -703,7 +703,7 @@ Check the logs at ~/ghcup/logs and the build directory #{tmpdir} for more clues.
VLeft (V (BuildFailed tmpdir e)) -> VLeft (V (BuildFailed tmpdir e)) ->
runLogger runLogger
($(logError) [i|Build failed with #{e} ($(logError) [i|Build failed with #{e}
Check the logs at ~/ghcup/logs and the build directory #{tmpdir} for more clues.|] Check the logs at ~/.ghcup/logs and the build directory #{tmpdir} for more clues.|]
) )
>> exitFailure >> exitFailure
VLeft e -> VLeft e ->
@ -721,7 +721,7 @@ Check the logs at ~/ghcup/logs and the build directory #{tmpdir} for more clues.
VLeft (V (BuildFailed tmpdir e)) -> VLeft (V (BuildFailed tmpdir e)) ->
runLogger runLogger
($(logError) [i|Build failed with #{e} ($(logError) [i|Build failed with #{e}
Check the logs at ~/ghcup/logs and the build directory #{tmpdir} for more clues.|] Check the logs at ~/.ghcup/logs and the build directory #{tmpdir} for more clues.|]
) )
>> exitFailure >> exitFailure
VLeft e -> VLeft e ->