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

sorted imports

Browse Source
This commit is contained in:
Felix Dilke 2026-01-30 14:53:27 +00:00
parent faefb3c2c7
commit 85e57325dc
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
haskell-experiments/src/Datalog/NaiveDatabase.hs
View File

@ -78,7 +78,6 @@ withFacts =
Right otherStatement -> throw $ NonFactException factText otherStatement Right otherStatement -> throw $ NonFactException factText otherStatement
Left ex -> throw $ CannotParseStatementException factText ex Left ex -> throw $ CannotParseStatementException factText ex
withFactsAndRules :: [Text] -> [Text] -> NaiveDatabase withFactsAndRules :: [Text] -> [Text] -> NaiveDatabase
withFactsAndRules facts = foldr (addRule . extractRule) (withFacts facts) withFactsAndRules facts = foldr (addRule . extractRule) (withFacts facts)

5
haskell-experiments/src/Datalog/Rules.hs
View File

@ -8,15 +8,10 @@ module Datalog.Rules where
import Control.Exception.Base import Control.Exception.Base
import Data.List import Data.List
import Data.Map (Map)
import Data.Map qualified as Map
import Data.Maybe import Data.Maybe
import Data.Set (Set)
import Data.Set qualified as Set import Data.Set qualified as Set
import Data.Text (Text) import Data.Text (Text)
import Data.Void
import Datalog.DatalogParser (Head (HeadSingle), Literal (..), Statement (..), Term (..), parseDatalog) import Datalog.DatalogParser (Head (HeadSingle), Literal (..), Statement (..), Term (..), parseDatalog)
import Text.Megaparsec (ParseErrorBundle)
import Datalog.DatalogDB import Datalog.DatalogDB
data BodyConstraint = BodyConstraint data BodyConstraint = BodyConstraint