From c5c06fa6cb3d9b1919e0013feb7bb5cb2ff2f5f4 Mon Sep 17 00:00:00 2001 From: crumbtoo Date: Tue, 2 Jan 2024 08:04:49 -0700 Subject: [PATCH] something --- src/RLP/ParseDecls.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 +---------------------------------------------------------------------------------- + + +