diff options
| -rw-r--r-- | compiler/main/Finder.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/Finder.hs b/compiler/main/Finder.hs index dc0c87fbf0..6d9956f256 100644 --- a/compiler/main/Finder.hs +++ b/compiler/main/Finder.hs @@ -245,7 +245,7 @@ modLocationCache hsc_env mod do_this = do mkHomeInstalledModule :: DynFlags -> ModuleName -> InstalledModule mkHomeInstalledModule dflags mod_name = - let iuid = fst (splitUnitIdInsts (thisPackage dflags)) + let iuid = thisInstalledUnitId dflags in InstalledModule iuid mod_name -- This returns a module because it's more convenient for users |