From c5d7cfca30757811ed00bdbd8dff782b75821c0c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 1 May 2002 17:12:24 +0000
Subject: [PATCH] [project @ 2002-05-01 17:12:24 by sof] remove addDLL, now in
 InteractiveUI

---
 ghc/compiler/ghci/Linker.lhs |   12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 32a34f1..2e517b0 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -11,8 +11,7 @@ module Linker (
    loadObj,      -- :: String -> IO ()
    unloadObj,    -- :: String -> IO ()
    lookupSymbol, -- :: String -> IO (Maybe (Ptr a))
-   resolveObjs,  -- :: IO Bool
-   addDLL	 -- :: String -> IO (Ptr CChar)
+   resolveObjs   -- :: IO Bool
   )  where
 
 import Monad            ( when )
@@ -52,13 +51,6 @@ resolveObjs = do
    r <- c_resolveObjs
    return (r /= 0)  -- returns True <=> success
 
-addDLL :: String -> String -> IO (Ptr CChar)
-addDLL path lib = do
-  withCString path $ \c_path -> do
-  withCString lib $ \c_lib -> do
-    maybe_errmsg <- c_addDLL c_path c_lib
-    return maybe_errmsg
-
 -- ---------------------------------------------------------------------------
 -- Foreign declaractions to RTS entry points which does the real work;
 -- ---------------------------------------------------------------------------
@@ -78,6 +70,4 @@ foreign import "unloadObj" unsafe
 foreign import "resolveObjs" unsafe
    c_resolveObjs :: IO Int
 
-foreign import "addDLL" unsafe 
-   c_addDLL :: CString -> CString -> IO (Ptr CChar)
 \end{code}
-- 
1.7.10.4