projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ecd5cb3
)
[project @ 2000-10-16 10:14:10 by sewardj]
author
sewardj
<unknown>
Mon, 16 Oct 2000 10:14:10 +0000
(10:14 +0000)
committer
sewardj
<unknown>
Mon, 16 Oct 2000 10:14:10 +0000
(10:14 +0000)
wibble
ghc/compiler/basicTypes/Module.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/basicTypes/Module.lhs
b/ghc/compiler/basicTypes/Module.lhs
index
9266c58
..
6e9a7d5
100644
(file)
--- a/
ghc/compiler/basicTypes/Module.lhs
+++ b/
ghc/compiler/basicTypes/Module.lhs
@@
-21,7
+21,7
@@
in a different DLL, by setting the DLL flag.
\begin{code}
module Module
(
\begin{code}
module Module
(
- Module, moduleName, mod_kind
+ Module, moduleName, moduleKind
-- abstract, instance of Eq, Ord, Outputable
, ModuleName
, ModuleKind(..)
-- abstract, instance of Eq, Ord, Outputable
, ModuleName
, ModuleKind(..)
@@
-256,9
+256,6
@@
mkPrelModule name = Module name preludePackage
moduleString :: Module -> EncodedString
moduleString (Module (ModuleName fs) _) = _UNPK_ fs
moduleString :: Module -> EncodedString
moduleString (Module (ModuleName fs) _) = _UNPK_ fs
-moduleName :: Module -> ModuleName
-moduleName (Module mod _) = mod
-
moduleUserString :: Module -> UserString
moduleUserString (Module mod _) = moduleNameUserString mod
moduleUserString :: Module -> UserString
moduleUserString (Module mod _) = moduleNameUserString mod