diff options
| author | simonpj <unknown> | 1999-05-18 15:05:18 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-05-18 15:05:18 +0000 |
| commit | 69e14f75a4b031e489b7774914e5a176409cea78 (patch) | |
| tree | 144089d677d9ab3a7c135e97dccd3bd16ce45d0a /ghc/compiler/hsSyn/HsSyn.lhs | |
| parent | c9dfd084e476b18290e964e5e5d66adf0771b9e6 (diff) | |
| download | haskell-69e14f75a4b031e489b7774914e5a176409cea78.tar.gz | |
[project @ 1999-05-18 15:03:54 by simonpj]
RULES-NOTES
Diffstat (limited to 'ghc/compiler/hsSyn/HsSyn.lhs')
| -rw-r--r-- | ghc/compiler/hsSyn/HsSyn.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/hsSyn/HsSyn.lhs b/ghc/compiler/hsSyn/HsSyn.lhs index 4bfce78c72..62f8333031 100644 --- a/ghc/compiler/hsSyn/HsSyn.lhs +++ b/ghc/compiler/hsSyn/HsSyn.lhs @@ -45,14 +45,14 @@ import BasicTypes ( Fixity, Version, NewOrData ) import Outputable import SrcLoc ( SrcLoc ) import Bag -import Module ( Module, pprModule ) +import Module ( ModuleName, pprModuleName ) \end{code} All we actually declare here is the top-level structure for a module. \begin{code} data HsModule name pat = HsModule - Module -- module name + ModuleName -- module name (Maybe Version) -- source interface version number (Maybe [IE name]) -- export list; Nothing => export everything -- Just [] => export *nothing* (???) @@ -73,9 +73,9 @@ instance (Outputable name, Outputable pat) decls src_loc) = vcat [ case exports of - Nothing -> hsep [ptext SLIT("module"), pprModule name, ptext SLIT("where")] + Nothing -> hsep [ptext SLIT("module"), pprModuleName name, ptext SLIT("where")] Just es -> vcat [ - hsep [ptext SLIT("module"), pprModule name, lparen], + hsep [ptext SLIT("module"), pprModuleName name, lparen], nest 8 (fsep (punctuate comma (map ppr es))), nest 4 (ptext SLIT(") where")) ], |