updated upperBound to return upper instead of lower bound from size hint
commitc86f1c085c93ae75d49ebdbc2cd4e2df18482677
authorMichael Bassett <michael.b.bassett@gmail.com>
dateWed 7 May 2014, 19:09 (12 years ago)
parent3f7daf3
Data/Text/Internal/Fusion/Size.hs+1−1
@@ -135,7 +135,7 @@ larger _ _ = Unknown
135135
136136-- | Compute the maximum size from a size hint, if possible.
137137upperBound :: Int -> Size -> Int
138−upperBound _ (Between n _) = n
138+upperBound _ (Between _ n) = n
139139upperBound k _ = k
140140{-# INLINE upperBound #-}
141141