From 33849038080563f645649c6675a4a378718e85fe Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 2 Mar 1999 15:43:28 +0000
Subject: [PATCH] [project @ 1999-03-02 15:43:27 by sof] PrelMods - use
 mkPrelModule instead of mkSrcModule to reflect distinction
 we need to make between the two when compiling up code
 that's destined for 'Win32 DLL'dom.

---
 ghc/compiler/prelude/PrelMods.lhs   |   46 +++++++++++++++++------------------
 ghc/compiler/prelude/PrelVals.lhs   |    3 ++-
 ghc/compiler/prelude/TysWiredIn.lhs |    3 ++-
 3 files changed, 27 insertions(+), 25 deletions(-)

diff --git a/ghc/compiler/prelude/PrelMods.lhs b/ghc/compiler/prelude/PrelMods.lhs
index 294cb5d..5902c4b 100644
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -24,7 +24,7 @@ module PrelMods
 
 #include "HsVersions.h"
 
-import OccName	( Module, mkSrcModule )
+import Module	( Module, mkPrelModule, mkSrcModule )
 import Util	( nOfThem )
 import Panic	( panic )
 \end{code}
@@ -35,28 +35,28 @@ pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ      :: Module
 pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR	  	    :: Module	
 pREL_FOREIGN, pREL_STABLE					    :: Module
 
-pRELUDE	     = mkSrcModule "Prelude"
-pREL_GHC     = mkSrcModule "PrelGHC"	   -- Primitive types and values
-pREL_BASE    = mkSrcModule "PrelBase"
-pREL_READ    = mkSrcModule "PrelRead"
-pREL_NUM     = mkSrcModule "PrelNum"
-pREL_LIST    = mkSrcModule "PrelList"
-pREL_TUP     = mkSrcModule "PrelTup"
-pREL_PACK    = mkSrcModule "PrelPack"
-pREL_CONC    = mkSrcModule "PrelConc"
-pREL_IO_BASE = mkSrcModule "PrelIOBase"
-pREL_ST	     = mkSrcModule "PrelST"
-pREL_ARR     = mkSrcModule "PrelArr"
-pREL_FOREIGN = mkSrcModule "PrelForeign"
-pREL_STABLE  = mkSrcModule "PrelStable"
-pREL_ADDR    = mkSrcModule "PrelAddr"
-pREL_ERR     = mkSrcModule "PrelErr"
-
-mONAD	     = mkSrcModule "Monad"
-rATIO	     = mkSrcModule "Ratio"
-iX	     = mkSrcModule "Ix"
-
-pREL_MAIN    = mkSrcModule "PrelMain"
+pRELUDE	     = mkPrelModule "Prelude"
+pREL_GHC     = mkPrelModule "PrelGHC"	   -- Primitive types and values
+pREL_BASE    = mkPrelModule "PrelBase"
+pREL_READ    = mkPrelModule "PrelRead"
+pREL_NUM     = mkPrelModule "PrelNum"
+pREL_LIST    = mkPrelModule "PrelList"
+pREL_TUP     = mkPrelModule "PrelTup"
+pREL_PACK    = mkPrelModule "PrelPack"
+pREL_CONC    = mkPrelModule "PrelConc"
+pREL_IO_BASE = mkPrelModule "PrelIOBase"
+pREL_ST	     = mkPrelModule "PrelST"
+pREL_ARR     = mkPrelModule "PrelArr"
+pREL_FOREIGN = mkPrelModule "PrelForeign"
+pREL_STABLE  = mkPrelModule "PrelStable"
+pREL_ADDR    = mkPrelModule "PrelAddr"
+pREL_ERR     = mkPrelModule "PrelErr"
+
+mONAD	     = mkPrelModule "Monad"
+rATIO	     = mkPrelModule "Ratio"
+iX	     = mkPrelModule "Ix"
+
+pREL_MAIN    = mkPrelModule "PrelMain"
 mAIN	     = mkSrcModule "Main"
 
 iNT, wORD   :: Module
diff --git a/ghc/compiler/prelude/PrelVals.lhs b/ghc/compiler/prelude/PrelVals.lhs
index 3ebf0f9..132b453 100644
--- a/ghc/compiler/prelude/PrelVals.lhs
+++ b/ghc/compiler/prelude/PrelVals.lhs
@@ -20,7 +20,8 @@ import TysWiredIn
 -- others:
 import CoreSyn		-- quite a bit
 import IdInfo		-- quite a bit
-import Name		( mkWiredInIdName, mkSrcVarOcc, Module )
+import Module		( Module )
+import Name		( mkWiredInIdName, mkSrcVarOcc )
 import Type		
 import Var		( TyVar )
 import Demand		( wwStrict )
diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index 6088e2d..3c5fd87 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -93,7 +93,8 @@ import TysPrim
 
 -- others:
 import Constants	( mAX_TUPLE_SIZE )
-import Name		( Module, mkWiredInTyConName, mkWiredInIdName, mkSrcOccFS, dataName )
+import Module		( Module )
+import Name		( mkWiredInTyConName, mkWiredInIdName, mkSrcOccFS, dataName )
 import DataCon		( DataCon, mkDataCon )
 import Var		( TyVar, tyVarKind )
 import TyCon		( TyCon, mkAlgTyCon, mkSynTyCon, mkTupleTyCon )
-- 
1.7.10.4