hie-bios-0.16.0: wrappers/cabal-with-repl.hs

module Main (main) where

import System.Directory (getCurrentDirectory)
import System.Environment (getArgs, getEnv)
import System.IO (openFile, hClose, hPutStrLn, IOMode(..))

main :: IO ()
main = do
  args <- getArgs
  output_file <- getEnv "HIE_BIOS_OUTPUT"
  h <- openFile output_file AppendMode
  getCurrentDirectory >>= hPutStrLn h
  mapM_ (hPutStrLn h) args
  hClose h