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