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

digestHead abstracts DatalogDB

Browse Source
This commit is contained in:
Felix Dilke 2026-01-30 11:07:40 +00:00
parent 6dda089bfe
commit 136412a4dd
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -30,7 +30,7 @@ data NaiveDatabase = NaiveDatabase
instance DatalogDB NaiveDatabase where
emptyDB :: NaiveDatabase
emptyDB = NaiveDatabase
emptyDB = NaiveDatabase
{ relations = Map.empty
, constants = Set.empty -- the Herbrand universe
}
@ -118,15 +118,15 @@ withFacts =
newRelationMap = Map.insert relationName newRelation relationMap
newConstantSet = Set.union constantSet $ Set.fromList terms
data RuleContext = RuleContext
data (DatalogDB db) => RuleContext db = RuleContext
{ __relation :: Relation
, _variableNames :: [Text]
, _headEntries :: [RuleElement]
, _bodyConstraints :: [BodyConstraint]
, _db :: NaiveDatabase
, _db :: db
}
digestHead :: NaiveDatabase -> Relation -> Literal -> RuleContext
digestHead :: forall db . (DatalogDB db) => db -> Relation -> Literal -> RuleContext db
digestHead db relation (Literal neg relationName terms) =
RuleContext
{ __relation = relation
@ -147,7 +147,7 @@ digestHead db relation (Literal neg relationName terms) =
extractConstant :: RuleElement -> Maybe Constant
extractConstant (RuleElementConstant constant) = Just constant
extractConstant _ = Nothing
digestBody :: Literal -> RuleContext -> RuleContext
digestBody :: Literal -> RuleContext NaiveDatabase -> RuleContext NaiveDatabase
digestBody (Literal neg subRelationName subTerms) context =
context {
_variableNames = variableNames