@@ -6,7 +6,7 @@ import Text.Parsec hiding (newline,spaces)
6import Text.Parsec.Indent
6import Text.Parsec.Indent
8import Parse.Binop
8import Parse.Binop
9−import Parse.Helpers
9+import Parse.Helpers as Help
10import Parse.Literal
10import Parse.Literal
11import qualified Parse.Pattern as Pattern
11import qualified Parse.Pattern as Pattern
12import qualified Parse.Type as Type
12import qualified Parse.Type as Type
@@ -46,7 +46,7 @@ negative = do
46-------- Complex Terms --------
46-------- Complex Terms --------
48listTerm :: IParser Source.Expr'
48listTerm :: IParser Source.Expr'
49−listTerm = markdown' <|> glShader' <|> braces (try range <|> ExplicitList <$> commaSep expr)
49+listTerm = markdown' <|> shader' <|> braces (try range <|> ExplicitList <$> commaSep expr)
51 range = do
51 range = do
52 lo <- expr
52 lo <- expr
@@ -56,17 +56,18 @@ listTerm = markdown' <|> glShader' <|> braces (try range <|> ExplicitList <$> co
56 markdown' = do
56 markdown' = do
57 pos <- getPosition
57 pos <- getPosition
58 let uid = show (sourceLine pos) ++ ":" ++ show (sourceColumn pos)
58 let uid = show (sourceLine pos) ++ ":" ++ show (sourceColumn pos)
59− (rawText, exprs) <- markdown (interpolation uid)
59+ (rawText, exprs) <- Help.markdown (interpolation uid)
60 return (Markdown uid (filter (/='\r') rawText) exprs)
60 return (Markdown uid (filter (/='\r') rawText) exprs)
62− glShader' = do
62+ shader' = do
63 pos <- getPosition
63 pos <- getPosition
64 let uid = show (sourceLine pos) ++ ":" ++ show (sourceColumn pos)
64 let uid = show (sourceLine pos) ++ ":" ++ show (sourceColumn pos)
65− (rawSrc, tipe) <- glShader
65+ (rawSrc, tipe) <- Help.shader
66 return $ GLShader uid (filter (/='\r') rawSrc) tipe
66 return $ GLShader uid (filter (/='\r') rawSrc) tipe
68 span uid index =
68 span uid index =
69+ "<span id=\"md-" ++ uid ++ "-" ++ show index ++
69− "<span id=\"md-" ++ uid ++ "-" ++ show index ++ "\">{{ markdown interpolation is in the pipeline, but still needs more testing }}</span>"
70+ "\">{{ markdown interpolation is in the pipeline, but still needs more testing }}</span>"
71 interpolation uid exprs = do
72 interpolation uid exprs = do
72 try (string "{{")
73 try (string "{{")