msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

decls fix

Browse Source
This commit is contained in:
crumbtoo
2024-01-10 11:03:06 -07:00
parent 1d43c1d304
commit 86cd1075ca
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/RLP/Parse/Decls.hs
View File

@@ -22,9 +22,11 @@ import Data.HashMap.Strict qualified as H
import Data.Maybe (maybeToList) import Data.Maybe (maybeToList)
import Data.List (foldl1') import Data.List (foldl1')
import Data.Char import Data.Char
import Data.Function (fix)
import Data.Functor import Data.Functor
import Data.Functor.Const import Data.Functor.Const
import Data.Fix hiding (cata) import Data.Fix hiding (cata)
import GHC.Exts (IsString)
import Lens.Micro import Lens.Micro
import Lens.Micro.Platform import Lens.Micro.Platform
import Rlp.Parse.Types import Rlp.Parse.Types
@@ -156,9 +158,8 @@ decls = do
space space
i <- L.indentLevel i <- L.indentLevel
let indentGuard = L.indentGuard scn EQ i let indentGuard = L.indentGuard scn EQ i
-- indentGuard *> decl *> eol *> indentGuard *> decl fix \ds -> (:) <$> (indentGuard *> decl)
many $ indentGuard *> decl <*> (try ds <|> eof *> pure [])
-- many $ indentGuard *> decl <* (eol <|> eof)
namevar :: Parser Name namevar :: Parser Name
namevar = word namevar = word