From c9b879cad061929cb5be935c27b8f38a8127d75c Mon Sep 17 00:00:00 2001 From: sewardj Date: Wed, 6 Jun 2001 14:33:13 +0000 Subject: [PATCH] [project @ 2001-06-06 14:33:13 by sewardj] Another -L for ghci wibble. --- ghc/compiler/ghci/InteractiveUI.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs index 2315a34..011bb86 100644 --- a/ghc/compiler/ghci/InteractiveUI.hs +++ b/ghc/compiler/ghci/InteractiveUI.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: InteractiveUI.hs,v 1.71 2001/06/06 14:02:50 sewardj Exp $ +-- $Id: InteractiveUI.hs,v 1.72 2001/06/06 14:33:13 sewardj Exp $ -- -- GHC Interactive User Interface -- @@ -680,7 +680,10 @@ linkPackages cmdline_lib_specs pkgs -> do b <- preload_static lib_paths static_ish putStrLn (if b then "done" else "not found") Right dll_unadorned - -> do b <- preload_dynamic lib_paths dll_unadorned + -> -- We add "" to the set of paths to try, so that + -- if none of the real paths match, we force addDLL + -- to look in the default dynamic-link search paths. + do b <- preload_dynamic (lib_paths++[""]) dll_unadorned when (not b) (cantFind lib_paths lib_spec) putStrLn "done" -- 1.7.10.4