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


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