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
withinLower (LowerBound v' InclusiveBound) = v' <= v
withinUpper NoUpperBound = True
withinUpper (UpperBound v' ExclusiveBound) = v > v'
withinUpper (UpperBound v' InclusiveBound) = v >= v'
withinUpper (UpperBound v' ExclusiveBound) = v' > v
withinUpper (UpperBound v' InclusiveBound) = v' >= v
-- | Convert a 'VersionRange' to a sequence of version intervals.
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