@@ -1151,6 +1151,7 @@ lines ps | null ps = []
1151 where (h,t) = spanBy (/= '\n') ps
1151 where (h,t) = spanBy (/= '\n') ps
1152{-# INLINE lines #-}
1152{-# INLINE lines #-}
1154-- | /O(n)/ Portably breaks a 'Text' up into a list of 'Text's at line
1155-- | /O(n)/ Portably breaks a 'Text' up into a list of 'Text's at line
1155-- boundaries.
1156-- boundaries.
@@ -1158,7 +1159,6 @@ lines ps | null ps = []
1158-- return immediately followed by a line feed, or a carriage return.
1159-- return immediately followed by a line feed, or a carriage return.
1159-- This accounts for both Unix and Windows line ending conventions,
1160-- This accounts for both Unix and Windows line ending conventions,
1160-- and for the old convention used on Mac OS 9 and earlier.
1161-- and for the old convention used on Mac OS 9 and earlier.
1162lines' :: Text -> [Text]
1162lines' :: Text -> [Text]
1163lines' ps | null ps = []
1163lines' ps | null ps = []
1164 | otherwise = h : case uncons t of
1164 | otherwise = h : case uncons t of