Commit f5832f18 authored by Michael Hanus 's avatar Michael Hanus
Browse files

Adapted to updates in redblacktree package

parent dedc6d52
Pipeline #341 failed with stages
......@@ -265,7 +265,7 @@ solveCHR prules goal =
type History = SetRBT ([Int],Int) -- entry: constraint indices and rule index
emptyHistory :: Ord a => SetRBT a
emptyHistory = empty
emptyHistory = empty (<=)
extendHistory :: Ord a => a -> SetRBT a -> SetRBT a
extendHistory = insert
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment