diff options
| author | Adam Sandberg Ericsson <adam@sandbergericsson.se> | 2021-11-05 19:44:34 +0000 |
|---|---|---|
| committer | Adam Sandberg Ericsson <adam@sandbergericsson.se> | 2021-11-05 19:44:34 +0000 |
| commit | d8ad8b10d31d123869f36912d7f83822e287c990 (patch) | |
| tree | 15008902956bff61f3b2f0d147b2f905e64ae49e | |
| parent | 96c86456fdfd1c23ac4314efc39374bf73ede2f2 (diff) | |
| download | haskell-wip/adamse/dynload-poc-8.10.tar.gz | |
poc for dynloadwip/adamse/dynload-poc-8.10
| -rw-r--r-- | compiler/ghci/Linker.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/ghci/Linker.hs b/compiler/ghci/Linker.hs index 7561c0cb08..2a200ec445 100644 --- a/compiler/ghci/Linker.hs +++ b/compiler/ghci/Linker.hs @@ -1196,7 +1196,7 @@ instance Outputable LibrarySpec where -- just to get the DLL handle into the list. partOfGHCi :: [PackageName] partOfGHCi - | isWindowsHost || isDarwinHost = [] + | True || isWindowsHost || isDarwinHost = [] | otherwise = map (PackageName . mkFastString) ["base", "template-haskell", "editline"] @@ -1262,7 +1262,7 @@ linkPackage hsc_env pkg let dflags = hsc_dflags hsc_env platform = targetPlatform dflags is_dyn = interpreterDynamic dflags - dirs | is_dyn = Packages.libraryDynDirs pkg + dirs | True || is_dyn = Packages.libraryDynDirs pkg | otherwise = Packages.libraryDirs pkg let hs_libs = Packages.hsLibraries pkg @@ -1470,7 +1470,7 @@ locateLib hsc_env is_hs lib_dirs gcc_dirs lib tryGcc `orElse` assumeDll - | loading_dynamic_hs_libs -- search for .so libraries first. + | True || loading_dynamic_hs_libs -- search for .so libraries first. = findHSDll `orElse` findDynObject `orElse` assumeDll |