@@ -326,7 +326,7 @@ markdown interpolation =
327shader :: IParser (String, Literal.GLShaderTipe)
327shader :: IParser (String, Literal.GLShaderTipe)
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