Rename unsafeGetUnitInfo into unsafeLookupUnit

5 files changed, 9 insertions, 9 deletions

diff --git a/compiler/GHC/Driver/CodeOutput.hs b/compiler/GHC/Driver/CodeOutput.hs
index 0c77ffc477..c614606186 100644
--- a/compiler/GHC/Driver/CodeOutput.hs
+++ b/compiler/GHC/Driver/CodeOutput.hs
@@ -131,7 +131,7 @@ outputC dflags filenm cmm_stream packages
          --   * -#include options from the cmdline and OPTIONS pragmas
          --   * the _stub.h file, if there is one.
          --
-         let rts = unsafeGetUnitInfo dflags rtsUnitId
+         let rts = unsafeLookupUnit dflags rtsUnitId
 
          let cc_injects = unlines (map mk_include (unitIncludes rts))
              mk_include h_file =
@@ -223,7 +223,7 @@ outputForeignStubs dflags mod location stubs
 
         -- we need the #includes from the rts package for the stub files
         let rts_includes =
-               let rts_pkg = unsafeGetUnitInfo dflags rtsUnitId in
+               let rts_pkg = unsafeLookupUnit dflags rtsUnitId in
                concatMap mk_include (unitIncludes rts_pkg)
             mk_include i = "#include \"" ++ i ++ "\"\n"
 
diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs
index ebc822aac5..95bad1e615 100644
--- a/compiler/GHC/Driver/Main.hs
+++ b/compiler/GHC/Driver/Main.hs
@@ -1192,7 +1192,7 @@ hscCheckSafe' m l = do
     packageTrusted _ Sf_SafeInferred False _ = True
     packageTrusted dflags _ _ m
         | isHomeModule dflags m = True
-        | otherwise = unitIsTrusted $ unsafeGetUnitInfo dflags (moduleUnit m)
+        | otherwise = unitIsTrusted $ unsafeLookupUnit dflags (moduleUnit m)
 
     lookup' :: Module -> Hsc (Maybe ModIface)
     lookup' m = do
diff --git a/compiler/GHC/Driver/Make.hs b/compiler/GHC/Driver/Make.hs
index c34df2c589..7aceafdd0b 100644
--- a/compiler/GHC/Driver/Make.hs
+++ b/compiler/GHC/Driver/Make.hs
@@ -310,7 +310,7 @@ warnUnusedPackages = do
         pit = eps_PIT eps
 
     let loadedPackages
-          = map (unsafeGetUnitInfo dflags)
+          = map (unsafeLookupUnit dflags)
           . nub . sort
           . map moduleUnit
           . moduleEnvKeys
diff --git a/compiler/GHC/SysTools/ExtraObj.hs b/compiler/GHC/SysTools/ExtraObj.hs
index 453dc83996..b0949ee889 100644
--- a/compiler/GHC/SysTools/ExtraObj.hs
+++ b/compiler/GHC/SysTools/ExtraObj.hs
@@ -55,7 +55,7 @@ mkExtraObj dflags extn xs
       -- set of include directories and PIC flags.
       cOpts = map Option (picCCOpts dflags)
                     ++ map (FileOption "-I")
-                            (unitIncludeDirs $ unsafeGetUnitInfo dflags rtsUnitId)
+                            (unitIncludeDirs $ unsafeLookupUnit dflags rtsUnitId)
 
       -- When compiling assembler code, we drop the usual C options, and if the
       -- compiler is Clang, we add an extra argument to tell Clang to ignore
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs
index d3737c08e0..3ebce53b2a 100644
--- a/compiler/GHC/Unit/State.hs
+++ b/compiler/GHC/Unit/State.hs
@@ -25,7 +25,7 @@ module GHC.Unit.State (
         lookupPackageName,
         improveUnit,
         searchPackageId,
-        unsafeGetUnitInfo,
+        unsafeLookupUnit,
         getInstalledPackageDetails,
         displayUnitId,
         listVisibleModuleNames,
@@ -424,11 +424,11 @@ extendUnitInfoMap (UnitInfoMap pkg_map closure) new_pkgs
 
 -- | Looks up the package with the given id in the package state, panicing if it is
 -- not found
-unsafeGetUnitInfo :: HasDebugCallStack => DynFlags -> Unit -> UnitInfo
-unsafeGetUnitInfo dflags pid =
+unsafeLookupUnit :: HasDebugCallStack => DynFlags -> Unit -> UnitInfo
+unsafeLookupUnit dflags pid =
     case lookupUnit dflags pid of
       Just config -> config
-      Nothing -> pprPanic "unsafeGetUnitInfo" (ppr pid)
+      Nothing -> pprPanic "unsafeLookupUnit" (ppr pid)
 
 lookupInstalledPackage :: PackageState -> UnitId -> Maybe UnitInfo
 lookupInstalledPackage pkgstate uid = lookupInstalledPackage' (unitInfoMap pkgstate) uid