git.iko.soy/elk
on master help sign in
Cosmetic: make markdown parser a bit nicer to read and switch out (++"") for id to avoid an extra copy
32fb518Evan Czaplicki
compiler/Parse/Helpers.hs+8−5
compare with master
unifiedsplit
@@ -311,14 +311,17 @@ anyUntilPos pos = go
311 False -> (:) <$> anyChar <*> go
311 False -> (:) <$> anyChar <*> go
312
312
313markdown :: ([a] -> IParser (String, [a])) -> IParser (String, [a])
313markdown :: ([a] -> IParser (String, [a])) -> IParser (String, [a])
314−markdown interpolation = try (string "[markdown|") >> closeMarkdown (++ "") []
314+markdown interpolation =
315+ do try (string "[markdown|")
316+ closeMarkdown id []
315 where
317 where
316− closeMarkdown md stuff =
318+ closeMarkdown markdownBuilder stuff =
317 choice [ do try (string "|]")
319 choice [ do try (string "|]")
318− return (md "", stuff)
320+ return (markdownBuilder "", stuff)
321+ , do (markdown,stuff') <- interpolation stuff
319− , (\(m,s) -> closeMarkdown (md . (m ++)) s) =<< interpolation stuff
322+ closeMarkdown (markdownBuilder . (markdown++)) stuff'
320 , do c <- anyChar
323 , do c <- anyChar
321− closeMarkdown (md . ([c]++)) stuff
324+ closeMarkdown (markdownBuilder . (c:)) stuff
322 ]
325 ]
323
326
324glShader :: IParser (String, Literal.GLShaderTipe)
327glShader :: IParser (String, Literal.GLShaderTipe)