Merge pull request #5 from chrisdone/haddocks

Tweak docs so haddock will succeed
travitch · Feb 27, 2014 · 822c6d2 · 822c6d2
2 parents 1b7bde2 + c3e2c9e
commit 822c6d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Database/Datalog/Evaluate.hs b/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.