@@ -6,7 +6,7 @@ import Text.Parsec hiding (newline,spaces)
66import Text.Parsec.Indent
77
88import Parse.Binop
9−import Parse.Helpers
9+import Parse.Helpers as Help
1010import Parse.Literal
1111import qualified Parse.Pattern as Pattern
1212import qualified Parse.Type as Type
@@ -46,7 +46,7 @@ negative = do
4646-------- Complex Terms --------
4747
4848listTerm :: IParser Source.Expr'
49−listTerm = markdown' <|> glShader' <|> braces (try range <|> ExplicitList <$> commaSep expr)
49+listTerm = markdown' <|> shader' <|> braces (try range <|> ExplicitList <$> commaSep expr)
5050 where
5151 range = do
5252 lo <- expr
@@ -56,17 +56,18 @@ listTerm = markdown' <|> glShader' <|> braces (try range <|> ExplicitList <$> co
5656 markdown' = do
5757 pos <- getPosition
5858 let uid = show (sourceLine pos) ++ ":" ++ show (sourceColumn pos)
59− (rawText, exprs) <- markdown (interpolation uid)
59+ (rawText, exprs) <- Help.markdown (interpolation uid)
6060 return (Markdown uid (filter (/='\r') rawText) exprs)
6161
62− glShader' = do
62+ shader' = do
6363 pos <- getPosition
6464 let uid = show (sourceLine pos) ++ ":" ++ show (sourceColumn pos)
65− (rawSrc, tipe) <- glShader
65+ (rawSrc, tipe) <- Help.shader
6666 return $ GLShader uid (filter (/='\r') rawSrc) tipe
6767
6868 span uid index =
69− "<span id=\"md-" ++ uid ++ "-" ++ show index ++ "\">{{ markdown interpolation is in the pipeline, but still needs more testing }}</span>"
69+ "<span id=\"md-" ++ uid ++ "-" ++ show index ++
70+ "\">{{ markdown interpolation is in the pipeline, but still needs more testing }}</span>"
7071
7172 interpolation uid exprs = do
7273 try (string "{{")