git.iko.soy/text
on master help sign in
Remove fromIntegral in Data.Text.{Lazy.,}Fusion.unfoldrN
5b717cdNicolas Pouillard
Data/Text/Fusion.hs+1−1
compare with master
unifiedsplit
@@ -175,7 +175,7 @@ reverseScanr f z0 (Stream next0 s0 len) = Stream next (S1 :!: z0 :!: s0) (len+1)
175-- first argument to 'unfoldrN'. This function is more efficient than
175-- first argument to 'unfoldrN'. This function is more efficient than
176-- 'unfoldr' when the length of the result is known.
176-- 'unfoldr' when the length of the result is known.
177unfoldrN :: Int -> (a -> Maybe (Char,a)) -> a -> Stream Char
177unfoldrN :: Int -> (a -> Maybe (Char,a)) -> a -> Stream Char
178−unfoldrN n = S.unfoldrNI (fromIntegral n :: Int)
178+unfoldrN n = S.unfoldrNI n
179{-# INLINE [0] unfoldrN #-}
179{-# INLINE [0] unfoldrN #-}
180
180
181-------------------------------------------------------------------------------
181-------------------------------------------------------------------------------
Data/Text/Lazy/Fusion.hs+1−1
@@ -91,5 +91,5 @@ length = S.lengthI
91-- first argument to 'unfoldrN64'. This function is more efficient than
91-- first argument to 'unfoldrN64'. This function is more efficient than
92-- 'unfoldr' when the length of the result is known.
92-- 'unfoldr' when the length of the result is known.
93unfoldrN :: Int64 -> (a -> Maybe (Char,a)) -> a -> Stream Char
93unfoldrN :: Int64 -> (a -> Maybe (Char,a)) -> a -> Stream Char
94−unfoldrN n = S.unfoldrNI (fromIntegral n :: Int64)
94+unfoldrN n = S.unfoldrNI n
95{-# INLINE [0] unfoldrN #-}
95{-# INLINE [0] unfoldrN #-}