@@ -69,7 +69,7 @@ instance Num Size where
69 {-# INLINE f #-}
69 {-# INLINE f #-}
71add :: Int -> Int -> Int
71add :: Int -> Int -> Int
72−add m n | mn > 0 = mn
72+add m n | mn >= 0 = mn
73 | otherwise = overflowError
73 | otherwise = overflowError
74 where mn = m + n
74 where mn = m + n
75{-# INLINE add #-}
75{-# INLINE add #-}