{-# LANGUAGE PackageImports, NoImplicitPrelude  #-}

import Common             ( additionalArgs )
import GHC.Paths          ( ghc )
import System.Environment ( getArgs )
import System.Exit        ( exitWith )
import System.Process     ( rawSystem )

import "base" Prelude


main :: IO ()
main = do
    args <- getArgs
    exitWith =<< rawSystem ghc (["--interactive"] ++ additionalArgs ++ args)