Commit c9b879ca authored by sewardj's avatar sewardj
Browse files

[project @ 2001-06-06 14:33:13 by sewardj]

Another -L<dir> for ghci wibble.
parent f7c5bff1
-----------------------------------------------------------------------------
-- $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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment