Windows CR/LF compatible lines

rLines.hs

import ClassyPrelude

-- | Windows CR/LF compatible lines
rLines :: Textual t => t -> [t]
rLines str = res where
  (firstLine, rems) = break (\c -> c == '\r' || c == '\n') str
  res = case uncons rems of
    Nothing -> case uncons firstLine of
      Nothing -> []
      Just  _ -> [firstLine]
    Just (x,xs) -> (firstLine :) $ rLines $ if x == '\n' then xs else
      case uncons xs of
        Just ('\n', rem') -> rem'
        _ -> xs