@@ -32,17 +32,16 @@ import qualified Reporting.Error.Syntax as E
3232shader :: A.Position -> Parser E.Expr Src.Expr
3333shader start@(A.Position row col) =
3434 do block <- parseBlock
35− shdr <- parseGlsl row col block
35+ shdr <- parseGlsl row col src
3636 end <- P.getPosition
37− let src = List.intercalate "\\n" (lines block)
38− return (A.at start end (Src.Shader (Utf8.fromChars src) shdr))
37+ return (A.at start end (Src.Shader (Shader.fromChars src) shdr))
3938
4039
4140
4241-- BLOCK
4342
4443
45−parseBlock :: Parser E.Expr String
44+parseBlock :: Parser E.Expr P.Snippet
4645parseBlock =
4746 P.Parser $ \(P.State src pos end indent row col) cok _ cerr eerr ->
4847 let