- conf_file <- packageConfigPath
- proto_pkg_details <- loadPackageConfig conf_file
- let pkg_details = mungePackagePaths top_dir proto_pkg_details
- writeIORef v_Package_details pkg_details
-
- -- find the phase to stop after (i.e. -E, -C, -c, -S flags)
- (flags2, mode, stop_flag) <- getGhcMode argv'
- writeIORef v_GhcMode mode
-
- -- Show the GHCi banner?
-# ifdef GHCI
- when (mode == DoInteractive) $
- hPutStrLn stdout ghciWelcomeMsg
-# endif