LineEndingConverter.hs

module LineEndingConverter
where

-- splits a string into substrings based on the newlines
-- and handles both windows and unix style line endings
splitLines []     = []
splitLines string = firstLine : remainingLines
  where
    (firstLine, rest) = break carriageReturnOrLineFeed string
    remainingLines    = 
      case rest of
        ('\r':'\n':t) -> splitLines t
        ('\r':t)      -> splitLines t
        ('\n':t)      -> splitLines t
        _             -> []


-- detects if the character passed to it is either 
-- a carriage return or line feed
carriageReturnOrLineFeed c = c == '\r' || c == '\n'

-- convert a string to Unix style line endings
convertStringToUnixStyleLineEndings = unlines . splitLines