From d8ad8b10d31d123869f36912d7f83822e287c990 Mon Sep 17 00:00:00 2001
From: Adam Sandberg Ericsson <adam@sandbergericsson.se>
Date: Fri, 5 Nov 2021 19:44:34 +0000
Subject: poc for dynload

---
 compiler/ghci/Linker.hs | 6 +++---
 1 file 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
-- 
cgit v1.2.1