hie-bios-0.9.0: wrappers/cabal.hs

module Main (main) where

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

main :: IO ()
main = do
  args <- getArgs
  case args of
    "--interactive":_ -> do
      output_file <- getEnv "HIE_BIOS_OUTPUT"
      h <- openFile output_file AppendMode
      getCurrentDirectory >>= hPutStrLn h
      mapM_ (hPutStrLn h) args
      hClose h
    _ -> do
      ghc_path <- fromMaybe "ghc" <$> lookupEnv "HIE_BIOS_GHC"
      ph <- spawnProcess ghc_path (args)
      code <- waitForProcess ph
      exitWith code