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

rc #13

Merged
crumbtoo merged 196 commits from dev into main 2024-02-13 13:22:23 -07:00
Conversation 0 Commits 196 Files Changed 55 +4 -3
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 86cd1075ca - Show all commits

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