X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcompMan%2FCompManager.lhs;h=29178793e36dfc4c338e1a8f1476c5d0b0b93f1e;hb=f714e6b642fd614a9971717045ae47c3d871275e;hp=bf2d7d5a148725cdd737d5dc0b776b6228f7f5c7;hpb=6959a665ebacbe635a4db616a7191ce3eee2cabe;p=ghc-hetmet.git

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index bf2d7d5..2917879 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -44,13 +44,10 @@ module CompManager (
 		   --	-> IO (CmState, Maybe HValue)
 
     cmGetModInfo,		-- :: CmState -> (ModuleGraph, HomePackageTable)
-    findModuleLinkable_maybe,	-- Exported to InteractiveUI
 
     cmSetDFlags,
     cmGetBindings, 	-- :: CmState -> [TyThing]
     cmGetPrintUnqual,	-- :: CmState -> PrintUnqualified
-
-    sandboxIO		-- Should be somewhere else
 #endif
   )
 where
@@ -69,7 +66,6 @@ import Module		( Module, ModuleName, moduleName, mkModuleName, isHomeModule,
 			  extendModuleEnvList, extendModuleEnv,
 			  moduleNameUserString,
 			  ModLocation(..) )
-import RdrName		( GlobalRdrEnv, plusGlobalRdrEnv )
 import GetImports
 import UniqFM
 import Digraph		( SCC(..), stronglyConnComp, flattenSCC, flattenSCCs )
@@ -88,6 +84,7 @@ import DATA_IOREF	( readIORef )
 import HscMain		( hscThing, hscStmt, hscTcExpr )
 import TcRnDriver	( mkExportEnv, getModuleContents )
 import IfaceSyn		( IfaceDecl )
+import RdrName		( GlobalRdrEnv, plusGlobalRdrEnv )
 import Name		( Name )
 import NameEnv
 import Id		( idType )