[project @ 2000-10-06 13:07:32 by sewardj]

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

diff --git a/ghc/compiler/ghci/CmSummarise.lhs b/ghc/compiler/ghci/CmSummarise.lhs
index 6d6b652..7ef80a9 100644 (file)
--- a/ghc/compiler/ghci/CmSummarise.lhs
+++ b/ghc/compiler/ghci/CmSummarise.lhs
@@ -5,7 +5,7 @@
 
 \begin{code}
 module CmSummarise ( ModImport(..), mi_name,
-                     ModSummary(..), summarise )
+                     ModSummary(..), summarise, ms_get_imports )
 where
 
 #include "HsVersions.h"
@@ -35,6 +35,10 @@ data ModImport
 mi_name (MINormal nm) = nm
 mi_name (MISource nm) = nm
 
+ms_get_imports :: ModSummary -> [ModImport]
+ms_get_imports summ
+   = case ms_imports summ of { Just is -> is; Nothing -> [] }
+
 type Fingerprint = Int
 
 summarise :: ModLocation -> IO ModSummary