From 9aed2f5fcbfa58fadd30e74a0457c68613fe58d9 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 8 Nov 1998 17:09:14 +0000
Subject: [PATCH] [project @ 1998-11-08 17:09:14 by sof] corrected Prelude home
for {W,I}64
---
ghc/compiler/prelude/TysWiredIn.lhs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ghc/compiler/prelude/TysWiredIn.lhs b/ghc/compiler/prelude/TysWiredIn.lhs
index d752f45da202..9980396ac1bc 100644
--- a/ghc/compiler/prelude/TysWiredIn.lhs
+++ b/ghc/compiler/prelude/TysWiredIn.lhs
@@ -275,8 +275,8 @@ int32TyCon = pcNonRecDataTyCon int32TyConKey iNT SLIT("Int32") [] [int32DataCon]
int64Ty = mkTyConTy int64TyCon
-int64TyCon = pcNonRecDataTyCon int64TyConKey iNT SLIT("Int64") [] [int64DataCon]
-int64DataCon = pcDataCon int64DataConKey iNT SLIT("I64#") [] [] [int64PrimTy] int64TyCon
+int64TyCon = pcNonRecDataTyCon int64TyConKey pREL_CCALL SLIT("Int64") [] [int64DataCon]
+int64DataCon = pcDataCon int64DataConKey pREL_CCALL SLIT("I64#") [] [] [int64PrimTy] int64TyCon
\end{code}
\begin{code}
@@ -300,8 +300,8 @@ word32TyCon = pcNonRecDataTyCon word32TyConKey wORD SLIT("Word32") [] [word32D
word64Ty = mkTyConTy word64TyCon
-word64TyCon = pcNonRecDataTyCon word64TyConKey wORD SLIT("Word64") [] [word64DataCon]
-word64DataCon = pcDataCon word64DataConKey wORD SLIT("W64#") [] [] [word64PrimTy] word64TyCon
+word64TyCon = pcNonRecDataTyCon word64TyConKey pREL_CCALL SLIT("Word64") [] [word64DataCon]
+word64DataCon = pcDataCon word64DataConKey pREL_CCALL SLIT("W64#") [] [] [word64PrimTy] word64TyCon
\end{code}
\begin{code}
--
GitLab