- pkgs_before <- io (readIORef v_ExplicitPackages)
- leftovers <- io (processArgs static_flags minus_opts [])
- pkgs_after <- io (readIORef v_ExplicitPackages)
-
- -- update things if the users wants more packages
- let new_packages = pkgs_after \\ pkgs_before
- when (not (null new_packages)) $
- newPackages new_packages
-
- -- don't forget about the extra command-line flags from the
- -- extra_ghc_opts fields in the new packages
- new_package_details <- io (getPackageDetails new_packages)
- let pkg_extra_opts = concatMap extra_ghc_opts new_package_details
- pkg_extra_dyn <- io (processArgs static_flags pkg_extra_opts [])