@@ -195,7 +195,7 @@ tl_null = null `eqP` TL.null
195s_length = length `eqP` S.length
195s_length = length `eqP` S.length
196sf_length p = (length . L.filter p) `eqP` (S.length . S.filter p)
196sf_length p = (length . L.filter p) `eqP` (S.length . S.filter p)
197t_length = length `eqP` T.length
197t_length = length `eqP` T.length
198−tl_length = length `eqP` (fromIntegral . TL.length)
198+tl_length = L.genericLength `eqP` TL.length
200s_map f = map f `eqP` (unpackS . S.map f)
200s_map f = map f `eqP` (unpackS . S.map f)
201s_map_s f = map f `eqP` (unpackS . S.unstream . S.map f)
201s_map_s f = map f `eqP` (unpackS . S.unstream . S.map f)