875fccc · text · git.iko.soy

Data/Text.hs+4

@@ -222,7 +222,11 @@ import Data.ByteString (ByteString)

222import qualified Data.Text.Lazy as L

223import Data.Int (Int64)

224#endif

225+#if __GLASGOW_HASKELL__ >= 702

225import qualified GHC.CString as GHC

226import qualified GHC.CString as GHC

227+#else

228+import qualified GHC.Base as GHC

229+#endif

226import GHC.Prim (Addr#)

230import GHC.Prim (Addr#)

227

231

228-- $strict

232-- $strict

Data/Text/Fusion/Common.hs+1−1

@@ -159,7 +159,7 @@ streamCString# addr = Stream step 0 unknownSize

159 in Yield c (i+4)

160 where b = I# (ord# b#)

161 next n = I# (ord# (at# (i+n))) - 0x80

162− b# = at# i

162+ !b# = at# i

163 at# (I# i#) = indexCharOffAddr# addr i#

164 chr (I# i#) = C# (chr# i#)

165{-# INLINE [0] streamCString# #-}

Data/Text/Lazy.hs+4

@@ -217,7 +217,11 @@ import Data.Text.Lazy.Internal (Text(..), chunk, empty, foldlChunks, foldrChunks

217import Data.Text.Internal (firstf, safe, textP)

218import qualified Data.Text.Util as U

219import Data.Text.Lazy.Search (indices)

220+#if __GLASGOW_HASKELL__ >= 702

220import qualified GHC.CString as GHC

221import qualified GHC.CString as GHC

222+#else

223+import qualified GHC.Base as GHC

224+#endif

221import GHC.Prim (Addr#)

225import GHC.Prim (Addr#)

222

226

223-- $fusion

227-- $fusion