rc #13
@@ -47,7 +47,7 @@ symbol :: Text -> Parser Text
|
|||||||
symbol = L.symbol sc
|
symbol = L.symbol sc
|
||||||
|
|
||||||
sc :: Parser ()
|
sc :: Parser ()
|
||||||
sc = L.space space1 (void lineComment) (void blockComment)
|
sc = L.space hspace1 (void lineComment) (void blockComment)
|
||||||
|
|
||||||
-- TODO: return comment text
|
-- TODO: return comment text
|
||||||
-- TODO: '---' should not start a comment
|
-- TODO: '---' should not start a comment
|
||||||
@@ -156,3 +156,7 @@ data Partial a = E (RlpExprF Name a)
|
|||||||
|
|
||||||
type PartialExpr' = Y Partial
|
type PartialExpr' = Y Partial
|
||||||
|
|
||||||
|
----------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user