@@ -136,7 +136,8 @@ instance Stringy TL.Text where
136136 packSChunkSize k = SL.unstreamChunks k . S.streamList
137137 packS = TL.pack
138138 unpackS = TL.unpack
139− splitAtS = TL.splitAt . fromIntegral
139+ splitAtS = ((TL.lazyInvariant *** TL.lazyInvariant) .) .
140+ TL.splitAt . fromIntegral
140141
141142-- Do two functions give the same answer?
142143eq :: (Eq a, Show a) => (t -> a) -> (t -> a) -> t -> Bool