convert_line_endings.hs

import System.Environment (getArgs)
import LineEndingConverter

main = 
  do
    args <- getArgs
    
    case args of
      [input,output] -> 
        transformFileWith transformerFunction input output
      _ -> error "You must provide two filenames."

  where 
   transformerFunction = convertStringToUnixStyleLineEndings


-- transforms inputFile with transformerFunction 
-- and writes the output to outputFile
transformFileWith transformerFunction inputFile outputFile = do
  input <- readFile inputFile
  writeFile outputFile (transformerFunction input)