projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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,
\begin{code}
module CmSummarise ( ModImport(..), mi_name,
- ModSummary(..), summarise )
+ ModSummary(..), summarise, ms_get_imports )
where
#include "HsVersions.h"
where
#include "HsVersions.h"
@@
-35,6
+35,10
@@
data ModImport
mi_name (MINormal nm) = nm
mi_name (MISource nm) = nm
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
type Fingerprint = Int
summarise :: ModLocation -> IO ModSummary