Show sign on interpolation if there is a failure
commit16a215a249de8612d290c778683f52ebfe0e0492
authorEvan Czaplicki <info@elm-lang.org>
dateMon 2 Sep 2013, 15:18 (13 years ago)
parent6fb2fa9
compiler/Parse/Expression.hs+1−1
@@ -67,7 +67,7 @@ listTerm = markdown <|> braces (range <|> ExplicitList <$> commaSep expr)
6767 e <- expr
6868 whitespace
6969 string "}}"
70− let span = "<span id=\"md" ++ show (length exprs) ++ "\"></span>"
70+ let span = "<span id=\"md" ++ show (length exprs) ++ "\" style=\"font-family:monospace;\">{{ ... }}</span>"
7171 closeMarkdown (md ++ span) (e:exprs)
7272 , do c <- anyChar
7373 closeMarkdown (md ++ [c]) exprs