[project @ 2000-10-24 10:36:08 by simonpj]

[ghc-hetmet.git] / ghc / compiler / ghci / CmStaticInfo.lhs

diff --git a/ghc/compiler/ghci/CmStaticInfo.lhs b/ghc/compiler/ghci/CmStaticInfo.lhs
index 48594f6..a4a7178 100644 (file)
--- a/ghc/compiler/ghci/CmStaticInfo.lhs
+++ b/ghc/compiler/ghci/CmStaticInfo.lhs
@@ -1,27 +1,37 @@
 %
-% (c) The AQUA Project, Glasgow University, 1993-2000
+% (c) The University of Glasgow, 2000
 %
 \section[CmStaticInfo]{Session-static info for the Compilation Manager}
 
 \begin{code}
-module CmStaticInfo ( FLAGS, PCI, 
-                      mkSI, SI -- abstract
-                    )
+module CmStaticInfo ( Package(..), PackageConfigInfo(..), mkPCI )
 where
 
 #include "HsVersions.h"
 
+import Monad
 \end{code}
 
 \begin{code}
-type FLAGS = [String]       -- or some such fiction
-type PCI = [PkgConfig]
-data PkgConfig = PkgConfig   -- add details here
-
-data SI = MkSI FLAGS PCI
-
-mkSI :: FLAGS -> PCI -> SI
-mkSI = MkSI
-
-
+newtype PackageConfigInfo = PackageConfigInfo [Package]
+
+-- copied from the driver
+data Package
+   = Package {
+        name            :: String,
+        import_dirs     :: [String],
+        library_dirs    :: [String],
+        hs_libraries    :: [String],
+        extra_libraries :: [String],
+        include_dirs    :: [String],
+        c_includes      :: [String],
+        package_deps    :: [String],
+        extra_ghc_opts  :: [String],
+        extra_cc_opts   :: [String],
+        extra_ld_opts   :: [String]
+     }
+  deriving Read
+
+mkPCI :: [Package] -> IO PackageConfigInfo
+mkPCI = return . PackageConfigInfo
 \end{code}