DynFlags.hs

-- | Parse command line ghc options and add them to the 'DynFlags' passed
addCmdOpts :: GhcMonad m => LoadGhcEnvironment -> [GHCOption] -> DynFlags -> m DynFlags
addCmdOpts loadGhcEnv cmdOpts df =
    if loadGhcEnv == LoadGhcEnvironment
      then fst3 <$> G.parseDynamicFlags df (map G.noLoc cmdOpts)
      else
        --
        -- Passes "-hide-all-packages" to the GHC API to prevent parsing of
        -- package environment files. However this only works if there is no
        -- invocation of `setSessionDynFlags` before calling `initDynFlagsPure`.
        -- See ghc tickets #15513, #15541.
        --    Thanks @lspitzner
        fst3 <$> G.parseDynamicFlags df (map G.noLoc ("-hide-all-packages":cmdOpts))
        -- fst3 <$> G.parseDynamicFlags df (map G.noLoc cmdOpts)
  where
    fst3 (a,_,_) = a