git.iko.soy/text
on master help sign in
Replace the few last uses of div with quot
6b92943Bryan O'Sullivan
Data/Text.hs+7−7
compare with master
unifiedsplit
@@ -189,7 +189,7 @@ import Prelude (Char, Bool(..), Int, Maybe(..), String,
189 Eq(..), Ord(..), Ordering(..), (++),
189 Eq(..), Ord(..), Ordering(..), (++),
190 Read(..), Show(..),
190 Read(..), Show(..),
191 (&&), (||), (+), (-), (.), ($), ($!), (>>), (*),
191 (&&), (||), (+), (-), (.), ($), ($!), (>>), (*),
192− div, maxBound, not, return, otherwise)
192+ maxBound, not, return, otherwise, quot)
193#if defined(HAVE_DEEPSEQ)
193#if defined(HAVE_DEEPSEQ)
194import Control.DeepSeq (NFData)
194import Control.DeepSeq (NFData)
195#endif
195#endif
@@ -734,7 +734,7 @@ center k c t
734 | otherwise = replicateChar l c `append` t `append` replicateChar r c
734 | otherwise = replicateChar l c `append` t `append` replicateChar r c
735 where len = length t
735 where len = length t
736 d = k - len
736 d = k - len
737− r = d `div` 2
737+ r = d `quot` 2
738 l = d - r
738 l = d - r
739{-# INLINE center #-}
739{-# INLINE center #-}
740
740
@@ -906,11 +906,11 @@ mapAccumR f z0 = second reverse . S.mapAccumL g z0 . reverseStream
906-- @t@ repeated @n@ times.
906-- @t@ repeated @n@ times.
907replicate :: Int -> Text -> Text
907replicate :: Int -> Text -> Text
908replicate n t@(Text a o l)
908replicate n t@(Text a o l)
909− | n <= 0 || l <= 0 = empty
909+ | n <= 0 || l <= 0 = empty
910− | n == 1 = t
910+ | n == 1 = t
911− | isSingleton t = replicateChar n (unsafeHead t)
911+ | isSingleton t = replicateChar n (unsafeHead t)
912− | n <= maxBound `div` l = Text (A.run x) 0 len
912+ | n <= maxBound `quot` l = Text (A.run x) 0 len
913− | otherwise = overflowError "replicate"
913+ | otherwise = overflowError "replicate"
914 where
914 where
915 len = l * n
915 len = l * n
916 x = do
916 x = do
Data/Text/Fusion/Size.hs+2−2
@@ -93,8 +93,8 @@ subtractSize _ _ = Unknown
93
93
94mul :: Int -> Int -> Int
94mul :: Int -> Int -> Int
95mul m n
95mul m n
96− | m <= maxBound `div` n = m * n
96+ | m <= maxBound `quot` n = m * n
97− | otherwise = overflowError
97+ | otherwise = overflowError
98{-# INLINE mul #-}
98{-# INLINE mul #-}
99
99
100mulSize :: Size -> Size -> Size
100mulSize :: Size -> Size -> Size
Data/Text/Lazy.hs+2−2
@@ -193,7 +193,7 @@ module Data.Text.Lazy
193import Prelude (Char, Bool(..), Maybe(..), String,
193import Prelude (Char, Bool(..), Maybe(..), String,
194 Eq(..), Ord(..), Ordering(..), Read(..), Show(..),
194 Eq(..), Ord(..), Ordering(..), Read(..), Show(..),
195 (&&), (||), (+), (-), (.), ($), (++),
195 (&&), (||), (+), (-), (.), ($), (++),
196− div, error, flip, fmap, fromIntegral, not, otherwise)
196+ error, flip, fmap, fromIntegral, not, otherwise, quot)
197import qualified Prelude as P
197import qualified Prelude as P
198#if defined(HAVE_DEEPSEQ)
198#if defined(HAVE_DEEPSEQ)
199import Control.DeepSeq (NFData(..))
199import Control.DeepSeq (NFData(..))
@@ -628,7 +628,7 @@ center k c t
628 | otherwise = replicateChar l c `append` t `append` replicateChar r c
628 | otherwise = replicateChar l c `append` t `append` replicateChar r c
629 where len = length t
629 where len = length t
630 d = k - len
630 d = k - len
631− r = d `div` 2
631+ r = d `quot` 2
632 l = d - r
632 l = d - r
633{-# INLINE center #-}
633{-# INLINE center #-}
634
634