yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show sign on interpolation if there is a failure

Browse source
This commit is contained in:
Evan Czaplicki 2013-09-02 15:18:20 -07:00
parent 6fb2fa9ee0
commit 16a215a249
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/Parse/Expression.hs
View file

@ -67,7 +67,7 @@ listTerm = markdown <|> braces (range <|> ExplicitList <$> commaSep expr)
e <- expr e <- expr
whitespace whitespace
string "}}" string "}}"
let span = "<span id=\"md" ++ show (length exprs) ++ "\"></span>" let span = "<span id=\"md" ++ show (length exprs) ++ "\" style=\"font-family:monospace;\">{{ ... }}</span>"
closeMarkdown (md ++ span) (e:exprs) closeMarkdown (md ++ span) (e:exprs)
, do c <- anyChar , do c <- anyChar
closeMarkdown (md ++ [c]) exprs closeMarkdown (md ++ [c]) exprs