on master help sign in
By popular demand, name shader blocks glsl
a474531Evan Czaplicki
compiler/Parse/Helpers.hs+1−1
@@ -326,7 +326,7 @@ markdown interpolation =
326
326
327shader :: IParser (String, Literal.GLShaderTipe)
327shader :: IParser (String, Literal.GLShaderTipe)
328shader =
328shader =
329− do try (string "[shader|")
329+ do try (string "[glsl|")
330 rawSrc <- closeShader id
330 rawSrc <- closeShader id
331 case glSource rawSrc of
331 case glSource rawSrc of
332 Left err -> parserFail . show $ err
332 Left err -> parserFail . show $ err