From: simonmar <unknown>
Date: Fri, 8 Oct 2004 14:13:27 +0000 (+0000)
Subject: [project @ 2004-10-08 14:13:27 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1515
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e8f7ac570aa452758aa4b249534a636dabdde638;p=ghc-hetmet.git

[project @ 2004-10-08 14:13:27 by simonmar]
Comments only
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 55021cc..080158b 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -9,19 +9,19 @@ module CompManager (
 
     CmState, 		-- abstract
 
-    cmInit, 	   -- :: GhciMode -> DynFlags -> IO CmState
+    cmInit, 	   -- :: GhciMode -> IO CmState
 
-    cmDepAnal,	   -- :: CmState -> DynFlags -> [FilePath] -> IO ModuleGraph
+    cmDepAnal,	   -- :: CmState -> [FilePath] -> IO ModuleGraph
 
-    cmLoadModules, -- :: CmState -> DynFlags -> ModuleGraph
+    cmLoadModules, -- :: CmState -> ModuleGraph
 		   --	 -> IO (CmState, Bool, [String])
 
-    cmUnload,	   -- :: CmState -> DynFlags -> IO CmState
+    cmUnload,	   -- :: CmState -> IO CmState
 
 #ifdef GHCI
     cmModuleIsInterpreted, -- :: CmState -> String -> IO Bool
 
-    cmSetContext,  -- :: CmState -> DynFlags -> [String] -> [String] -> IO CmState
+    cmSetContext,  -- :: CmState -> [String] -> [String] -> IO CmState
     cmGetContext,  -- :: CmState -> IO ([String],[String])
 
     cmGetInfo,    -- :: CmState -> String -> IO (CmState, [(TyThing,Fixity)])
@@ -29,22 +29,16 @@ module CompManager (
     cmBrowseModule, -- :: CmState -> IO [TyThing]
 
     CmRunResult(..),
-    cmRunStmt,	   -- :: CmState -> DynFlags -> String
-		   --	 -> IO (CmState, CmRunResult)
+    cmRunStmt,		-- :: CmState -> String -> IO (CmState, CmRunResult)
 
-    cmTypeOfExpr,  -- :: CmState -> DynFlags -> String
-		   -- 	-> IO (CmState, Maybe String)
-
-    cmKindOfType,  -- :: CmState -> DynFlags -> String
-		   -- 	-> IO (CmState, Maybe String)
-
-    cmTypeOfName,  -- :: CmState -> Name -> IO (Maybe String)
+    cmTypeOfExpr,	-- :: CmState -> String -> IO (CmState, Maybe String)
+    cmKindOfType,	-- :: CmState -> String -> IO (CmState, Maybe String)
+    cmTypeOfName,	-- :: CmState -> Name -> IO (Maybe String)
 
     HValue,
-    cmCompileExpr, -- :: CmState -> DynFlags -> String 
-		   --	-> IO (CmState, Maybe HValue)
+    cmCompileExpr,	-- :: CmState -> String -> IO (CmState, Maybe HValue)
 
-    cmGetModInfo,		-- :: CmState -> (ModuleGraph, HomePackageTable)
+    cmGetModInfo	-- :: CmState -> (ModuleGraph, HomePackageTable)
 
     cmSetDFlags,
     cmGetBindings, 	-- :: CmState -> [TyThing]