fdilke/pyrites
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

supposed improvements to DatalogParser, from hlint

Browse Source
This commit is contained in:
Felix Dilke 2026-01-28 16:41:33 +00:00
parent 5c0cc77221
commit c0a6a447cf
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
haskell-experiments/src/Datalog/DatalogParser.hs
View File

@ -134,12 +134,12 @@ statement = do
try <$> [ do -- Query try <$> [ do -- Query
_ <- symbol "?-" _ <- symbol "?-"
body <- literal `sepBy` (symbol "," <* sc) body <- literal `sepBy` (symbol "," <* sc)
let pick construct = construct $> Query [] body
choice choice
[ do arrow; sc; vars <- variable `sepBy` (symbol "," <* sc); dot; pure $ Query vars body [ do arrow; sc; vars <- variable `sepBy` (symbol "," <* sc); dot; pure $ Query vars body
, dot *> pure (Query [] body) , pick dot
, eof *> pure (Query [] body) , pick eof
] ]
, do -- Rule: head :- body . , do -- Rule: head :- body .
hd <- parserHead hd <- parserHead
arrow arrow
@ -168,5 +168,5 @@ parseDatalog = parse (statement <* sc <* eof) "<datalog>"
-- Multi-statement parser (for whole files) -- Multi-statement parser (for whole files)
parseDatalogFile :: Text -> Either (ParseErrorBundle Text Void) [Statement] parseDatalogFile :: Text -> Either (ParseErrorBundle Text Void) [Statement]
parseDatalogFile src = parse (many (statement <* sc)) "<datalog-file>" src parseDatalogFile = parse (many (statement <* sc)) "<datalog-file>"