getTempFile :: String -- ^ Content
  -> String   -- ^ File name template
  -> IO FilePath -- ^ create file
getTempFile str file = do
  tmpDir <- getTemporaryDirectory
  writeTempFile str tmpDir file

#ifdef UNIX
getTempFile :: String -- ^ Content
  -> String   -- ^ File name template
  -> IO FilePath
getTempFile str file = do
  tmpDir <- getTemporaryDirectory
  writeTempFile str tmpDir file

#ifdef UNIX
getTempFile str file = do
  tmpDir <- getTemporaryDirectory
  writeTempFile str tmpDir file

#ifdef UNIX