on master help sign in
updated upperBound to return upper instead of lower bound from size hint
c86f1c0Michael Bassett
Data/Text/Internal/Fusion/Size.hs+1−1
@@ -135,7 +135,7 @@ larger _ _ = Unknown
135
135
136-- | Compute the maximum size from a size hint, if possible.
136-- | Compute the maximum size from a size hint, if possible.
137upperBound :: Int -> Size -> Int
137upperBound :: Int -> Size -> Int
138−upperBound _ (Between n _) = n
138+upperBound _ (Between _ n) = n
139upperBound k _ = k
139upperBound k _ = k
140{-# INLINE upperBound #-}
140{-# INLINE upperBound #-}
141
141