import GHC.Foreign (withCString, peekCString)

 import qualified Data.Set as Set

 import qualified GHC.LanguageExtensions as LangExt

   -- Note [Filepaths and Multiple Home Units]

   workingDirectory      :: Maybe FilePath,

   thisPackageName       :: Maybe String, -- ^ What the package is called, use with multiple home units

   reexportedModules     :: [ReexportedModule],

   -- ways

         workingDirectory        = Nothing,

         thisPackageName         = Nothing,

         reexportedModules       = [],

         objectDir               = Nothing,

 import qualified Data.Map as Map

 import qualified Data.Set as Set

 import Control.Concurrent.MVar

 import Control.Monad

 import qualified Control.Monad.Catch as MC

 import Data.IORef

 import Data.Maybe

 import qualified Data.List as List

 import System.FilePath

   where

     diag_opts = initDiagOpts dflags

                   (filter (\ms -> ms_unitid ms == homeUnitId_ dflags)

                        (mgModSummaries mod_graph)))

     reexported_mods = reexportedModules dflags

     hidden_mods     = hiddenModules dflags

     lookupModule mn = findImportedModule hsc_env mn NoPkgQual

     final_msgs hidden_warns reexported_warns

           =

         unionManyMessages $

           ++ [warn (DriverUnknownReexportedModules (homeUnitId_ dflags) reexported_warns) | not (null reexported_warns)]

 -- | Describes which modules of the module graph need to be loaded.

 import qualified Data.List.NonEmpty as NE

 import qualified Data.Map as Map

 import qualified Data.Set as Set

 import Data.Word

 import System.FilePath

 import Text.ParserCombinators.ReadP hiding (char)

 addHiddenModule :: String -> DynP ()

 addHiddenModule p =

 addReexportedModule :: String -> DynP ()

 addReexportedModule p =

 import qualified Data.Map as M

 import GHC.Driver.Env

 import GHC.Driver.Config.Finder

 import Data.List.NonEmpty ( NonEmpty (..) )

 import qualified System.OsPath as OsPath

 import qualified Data.List.NonEmpty as NE

       -- of that package which reexports it.

       | Just real_mod_name <- mod_name `M.lookup` finder_reexportedModules opts =

         findImportedModuleNoHsc fc opts ue (Just $ DefiniteHomeUnit uid Nothing) real_mod_name NoPkgQual

         return (mkHomeHidden uid)

       | otherwise =

         findHomePackageModule fc opts uid mod_name

   pure (Linkable obj_time mod (NE.singleton (DotO obj_fn ModuleObject)))

   -- We used to look for _stub.o files here, but that was a bug (#706)

   -- Now GHC merges the stub.o into the main .o (#3687)

 import GHC.Unit.Env

 import GHC.Data.FastString

 -- | The 'FinderCache' maps modules to the result of

 -- searching for that module. It records the results of searching for

       -- that have a similar name.

   , finder_workingDirectory :: Maybe OsPath

   , finder_thisPackageName  :: Maybe FastString

   , finder_reexportedModules :: M.Map ModuleName ModuleName -- Reverse mapping, if you are looking for this name then look for this module.

   , finder_hieDir :: Maybe OsPath

   , finder_hieSuf :: OsString