diff --git a/src/RLP/ParseDecls.hs b/src/RLP/ParseDecls.hs index 1789c83..9472063 100644 --- a/src/RLP/ParseDecls.hs +++ b/src/RLP/ParseDecls.hs @@ -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 +---------------------------------------------------------------------------------- + + +