-- |
-- Copyright : (c) 2012 Simon Meier
-- License : GPL v3 (see LICENSE)
--
-- Maintainer : Simon Meier <iridcode@gmail.com>
--
-- Various utility functions for interacting with the user.
module Main.Utils (
-- * File handling
writeFileWithDirs
) where
import System.FilePath
import System.Directory
------------------------------------------------------------------------------
-- File Handling
------------------------------------------------------------------------------
-- | Write a file and ensure that its containing directory exists.
writeFileWithDirs :: FilePath -> String -> IO ()
writeFileWithDirs file output = do
createDirectoryIfMissing True (takeDirectory file)
writeFile file output