From: sewardj <unknown>
Date: Mon, 16 Oct 2000 10:14:10 +0000 (+0000)
Subject: [project @ 2000-10-16 10:14:10 by sewardj]
X-Git-Tag: Approximately_9120_patches~3582
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a5a41e367a7bd61aa9708746f74df8aa2a877e7;p=ghc-hetmet.git

[project @ 2000-10-16 10:14:10 by sewardj]
wibble
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 9266c58e..6e9a7d5 100644
--- 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 
     (
-      Module, moduleName, mod_kind
+      Module, 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
 
-moduleName :: Module -> ModuleName
-moduleName (Module mod _) = mod
-
 moduleUserString :: Module -> UserString
 moduleUserString (Module mod _) = moduleNameUserString mod