hie-bios-0.3.0: wrappers/cabal.hs

module Main (main) where

import System.Directory (getCurrentDirectory)
import System.Environment (getArgs, getEnv)
import System.Exit (exitWith)
import System.Process (spawnProcess, waitForProcess)
import System.IO (openFile, hClose, hPutStrLn, IOMode(..))

main = do
  args <- getArgs
  output_file <- getEnv "HIE_BIOS_OUTPUT"
  ghcPath <- getEnv "HIE_BIOS_GHC"
  ghcPathArgs <- fmap unwords (getEnv "HIE_BIOS_GHC_ARGS")
  case args of
    "--interactive":_ -> do
      h <- openFile output_file AppendMode
      getCurrentDirectory >>= hPutStrLn h
      mapM_ (hPutStrLn h) args
      hClose h
    _ -> do
      ph <- spawnProcess ghcPath (ghcPathArgs ++ args)
      code <- waitForProcess ph
      exitWith code