diff options
| author | sewardj <unknown> | 2000-10-12 15:23:21 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-10-12 15:23:21 +0000 |
| commit | e796da890fc22b926fd6d3949d958987e9abb77f (patch) | |
| tree | d8dfec61753588a05130b9eb1e13e38379de0c97 | |
| parent | 8a42a90d764fa45e490e969e5b64c944a57db5bd (diff) | |
| download | haskell-e796da890fc22b926fd6d3949d958987e9abb77f.tar.gz | |
[project @ 2000-10-12 15:23:21 by sewardj]
mkSysModuleFS -> mkSysModuleNameFS
| -rw-r--r-- | ghc/compiler/rename/ParseIface.y | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y index 0763ce4147..f9ebbd1373 100644 --- a/ghc/compiler/rename/ParseIface.y +++ b/ghc/compiler/rename/ParseIface.y @@ -59,7 +59,7 @@ import OccName ( mkSysOccFS, tcName, varName, ipName, dataName, clsName, tvName, uvName, EncodedFS ) -import Module ( ModuleName, PackageName, mkSysModuleFS, mkModule ) +import Module ( ModuleName, PackageName, mkSysModuleNameFS, mkModule ) import SrcLoc ( SrcLoc ) import CmdLineOpts ( opt_InPackage ) import Outputable @@ -246,7 +246,7 @@ import_part : { [] } import_decl :: { ImportVersion OccName } import_decl : 'import' mod_name orphans is_boot whats_imported ';' - { (mkSysModuleFS $2, $3, $4, $5) } + { (mkSysModuleNameFS $2, $3, $4, $5) } orphans :: { WhetherHasOrphans } orphans : { False } @@ -275,7 +275,7 @@ name_version_pair : var_occ version { ($1, $2) } exports_part :: { [ExportItem] } exports_part : { [] } | '__export' mod_name entities ';' - exports_part { (mkSysModuleFS $2, $3) : $5 } + exports_part { (mkSysModuleNameFS $2, $3) : $5 } entities :: { [RdrAvailInfo] } entities : { [] } @@ -562,7 +562,7 @@ package :: { PackageName } -- Module loops are always within a package mod_name :: { ModuleName } - : CONID { mkSysModuleFS $1 } + : CONID { mkSysModuleNameFS $1 } --------------------------------------------------- |