Commits

Anonymous committed 168b9c4

updated upperBound to return upper instead of lower bound from size hint

  • Participants
  • Parent commits ab5d73c

Comments (0)

Files changed (1)

File Data/Text/Internal/Fusion/Size.hs

 
 -- | Compute the maximum size from a size hint, if possible.
 upperBound :: Int -> Size -> Int
-upperBound _ (Between n _) = n
+upperBound _ (Between _ n) = n
 upperBound k _             = k
 {-# INLINE upperBound #-}