Show sign on interpolation if there is a failure
This commit is contained in:
parent
6fb2fa9ee0
commit
16a215a249
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue