Commit b0a328a1 authored by Justus Sagemüller's avatar Justus Sagemüller

Escape `$` signs _after_ html control characters.

Otherwise these are misinterpreted as MathJax again (even in their `$` form, for whatever reason!).
parent a5e317f1
...@@ -1315,17 +1315,17 @@ formatErrorWithClass :: String -> ErrMsg -> String ...@@ -1315,17 +1315,17 @@ formatErrorWithClass :: String -> ErrMsg -> String
formatErrorWithClass cls = formatErrorWithClass cls =
printf "<span class='%s'>%s</span>" cls . printf "<span class='%s'>%s</span>" cls .
replace "\n" "<br/>" . replace "\n" "<br/>" .
fixDollarSigns .
replace "<" "&lt;" . replace "<" "&lt;" .
replace ">" "&gt;" . replace ">" "&gt;" .
replace "&" "&amp;" . replace "&" "&amp;" .
replace useDashV "" . replace useDashV "" .
replace "Ghci" "IHaskell" . replace "Ghci" "IHaskell" .
replace "‘interactive:" "‘" . replace "‘interactive:" "‘" .
fixDollarSigns .
rstrip . rstrip .
typeCleaner typeCleaner
where where
fixDollarSigns = replace "$" "<span>$</span>" fixDollarSigns = replace "$" "<span>&dollar;</span>"
useDashV = "\nUse -v to see a list of the files searched for." useDashV = "\nUse -v to see a list of the files searched for."
isShowError err = isShowError err =
"No instance for (Show" `isPrefixOf` err && "No instance for (Show" `isPrefixOf` err &&
......
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