mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-18 12:26:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

IHaskell.Eval.Evaluate: don't output HTML on shell command failure

Browse Source
This commit is contained in:
Vaibhav Sagar 2020-11-23 02:33:37 +11:00
parent aa15573158
commit 6825bb9cf5
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/IHaskell/Eval/Evaluate.hs
View File

@ -709,11 +709,7 @@ evalCommand publish (Directive ShellCmd cmd) state = wrapExecution state $
ExitSuccess -> return $ Display [plain out]
ExitFailure code -> do
let errMsg = "Process exited with error code " ++ show code
htmlErr = printf "<span class='err-msg'>%s</span>" errMsg
return $ Display
[ plain $ out ++ "\n" ++ errMsg
, html $ printf "<span class='mono'>%s</span>" out ++ htmlErr
]
return $ Display [plain $ out ++ "\n" ++ errMsg]
loop
-- This is taken largely from GHCi's info section in InteractiveUI.