Remove fromIntegral in Data.Text.{Lazy.,}Fusion.unfoldrN
--HG--
extra : convert_revision : 2c9f21a10158517d14c86d4080fcbff0997136cc
commit5b717cdfbb227685523cb6c468ea54cd394c4e76
authorNicolas Pouillard <nicolas.pouillard@gmail.com>
dateFri 6 Mar 2009, 09:27 (18 years ago)
parent184a502
Data/Text/Fusion.hs+1−1
@@ -175,7 +175,7 @@ reverseScanr f z0 (Stream next0 s0 len) = Stream next (S1 :!: z0 :!: s0) (len+1)
175175-- first argument to 'unfoldrN'. This function is more efficient than
176176-- 'unfoldr' when the length of the result is known.
177177unfoldrN :: Int -> (a -> Maybe (Char,a)) -> a -> Stream Char
178−unfoldrN n = S.unfoldrNI (fromIntegral n :: Int)
178+unfoldrN n = S.unfoldrNI n
179179{-# INLINE [0] unfoldrN #-}
180180
181181-------------------------------------------------------------------------------
Data/Text/Lazy/Fusion.hs+1−1
@@ -91,5 +91,5 @@ length = S.lengthI
9191-- first argument to 'unfoldrN64'. This function is more efficient than
9292-- 'unfoldr' when the length of the result is known.
9393unfoldrN :: Int64 -> (a -> Maybe (Char,a)) -> a -> Stream Char
94−unfoldrN n = S.unfoldrNI (fromIntegral n :: Int64)
94+unfoldrN n = S.unfoldrNI n
9595{-# INLINE [0] unfoldrN #-}