Using the supplied interactWith function, write another function that transposes the file contents of the input and writes it to another file.

TransposeFile.hs

interactWith :: (String -> String) -> FilePath -> FilePath -> IO ()
interactWith f inputFile outputFile = do
  input <- readFile inputFile
  writeFile outputFile (f input)

transpose = unlines . transpose' . lines where
  transpose' ss | all ((==) "") ss = []
  transpose' ss                    = map head nonEmptySs : (transpose' $ map tail nonEmptySs) where
    nonEmptySs = filter ((/=) "") ss

transposeFile inputFile outputFile = interactWith transpose inputFile outputFile where