voidlizard
/
suckless-conf
mirror of https://github.com/voidlizard/suckless-conf.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed parse error

This commit is contained in:
Dmitry Zuikov 2023-02-09 14:33:26 +03:00
parent 54377068aa
commit ba178789e7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/Data/Config/Suckless/Parse/Megaparsec.hs
View File

@ -168,13 +168,13 @@ top = many $ do
topTerm :: forall c . MegaConstraints c => Parser (Syntax c) topTerm :: forall c . MegaConstraints c => Parser (Syntax c)
topTerm = do topTerm = do
sc L.lexeme sc $ do
co <- MegaContext . Just <$> getOffset co <- MegaContext . Just <$> getOffset
s0 <- symbol scTop s0 <- symbol scTop
ss <- many (syntax scTop) ss <- many (syntax scTop)
void eol <|> eof void eol <|> eof
pure $ List co (s0:ss) pure $ List co (s0:ss)
topStmt :: forall c . MegaConstraints c => Parser (Syntax c) topStmt :: forall c . MegaConstraints c => Parser (Syntax c)
topStmt = topTerm <|> syntax scTop topStmt = topTerm <|> syntax scTop