From: sewardj <unknown>
Date: Thu, 12 Oct 2000 15:23:21 +0000 (+0000)
Subject: [project @ 2000-10-12 15:23:21 by sewardj]
X-Git-Tag: Approximately_9120_patches~3604
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e796da890fc22b926fd6d3949d958987e9abb77f;p=ghc-hetmet.git

[project @ 2000-10-12 15:23:21 by sewardj]
mkSysModuleFS -> mkSysModuleNameFS
---

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 0763ce4..f9ebbd1 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 }
 
 
 ---------------------------------------------------