Together, with feeling

Main.hs

module Main where

import System.IO

main :: IO ()
main = do
  putStrLn "What would you like to call your file?"
  filename <- getLine
  putStrLn "What would you like inside your file?"
  content <- getLine
  writeFile filename content