Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
gargantext-ihaskell
Commits
c783897d
Commit
c783897d
authored
Jun 14, 2016
by
Andrew Gibiansky
Committed by
GitHub
Jun 14, 2016
Browse files
Options
Browse Files
Download
Plain Diff
Merge pull request #677 from leftaroundabout/bug/escape-anglebrackets
Escape html control characters in error messages.
parents
a57cb83c
b0a328a1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
2 deletions
+5
-2
Evaluate.hs
src/IHaskell/Eval/Evaluate.hs
+5
-2
No files found.
src/IHaskell/Eval/Evaluate.hs
View file @
c783897d
...
...
@@ -1313,14 +1313,17 @@ formatErrorWithClass :: String -> ErrMsg -> String
formatErrorWithClass
cls
=
printf
"<span class='%s'>%s</span>"
cls
.
replace
"
\n
"
"<br/>"
.
fixDollarSigns
.
replace
"<"
"<"
.
replace
">"
">"
.
replace
"&"
"&"
.
replace
useDashV
""
.
replace
"Ghci"
"IHaskell"
.
replace
"‘interactive:"
"‘"
.
fixDollarSigns
.
rstrip
.
typeCleaner
where
fixDollarSigns
=
replace
"$"
"<span>
$
</span>"
fixDollarSigns
=
replace
"$"
"<span>
$
</span>"
useDashV
=
"
\n
Use -v to see a list of the files searched for."
isShowError
err
=
"No instance for (Show"
`
isPrefixOf
`
err
&&
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a 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