Permalink
Browse files

Merge pull request #5 from chrisdone/haddocks

Tweak docs so haddock will succeed
  • Loading branch information...
2 parents 1b7bde2 + c3e2c9e commit 822c6d2cc033516fd05b3695a6e19430cc269c57 @travitch committed Feb 27, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Database/Datalog/Evaluate.hs
@@ -124,8 +124,8 @@ applyRule :: (Eq a, Hashable a, Show a)
=> Database a -> Rule a -> ST s [Bindings s a]
applyRule db r = do
-- We need to substitute the ΔT table in for *one* occurrence of the
- -- T relation in the rule body at a time. It must be substituted in at
- -- *each* position where T appears.
+ -- T relation in the rule body at a time. It must be substituted in
+ -- at *each* position where T appears.
case any (referencesRelation hr) b of
-- If the relation does not appear in the body at all, we don't
-- need to do the delta substitution.

0 comments on commit 822c6d2

Please sign in to comment.