Commit 4f9b6073 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Fix implementation of withinIntervals

parent 54e23f69
...@@ -397,8 +397,8 @@ withinIntervals v (VersionIntervals intervals) = any withinInterval intervals ...@@ -397,8 +397,8 @@ withinIntervals v (VersionIntervals intervals) = any withinInterval intervals
withinLower (LowerBound v' InclusiveBound) = v' <= v withinLower (LowerBound v' InclusiveBound) = v' <= v
withinUpper NoUpperBound = True withinUpper NoUpperBound = True
withinUpper (UpperBound v' ExclusiveBound) = v > v' withinUpper (UpperBound v' ExclusiveBound) = v' > v
withinUpper (UpperBound v' InclusiveBound) = v >= v' withinUpper (UpperBound v' InclusiveBound) = v' >= v
-- | Convert a 'VersionRange' to a sequence of version intervals. -- | Convert a 'VersionRange' to a sequence of version intervals.
-- --
......
Supports Markdown
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