From b5ef63883034b072d5ee3daf1be9e85cb78f1d8e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 28 Jan 1999 11:29:23 +0000
Subject: [PATCH] [project @ 1999-01-28 11:29:23 by simonpj] Changes for new
 z-encoding

---
 ghc/lib/std/Main.hi-boot          |  3 ++-
 ghc/lib/std/PrelException.hi-boot |  2 +-
 ghc/lib/std/PrelPack.hi-boot      | 12 ++++++------
 3 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/ghc/lib/std/Main.hi-boot b/ghc/lib/std/Main.hi-boot
index 642e4a6fa945..339a6ee71e1b 100644
--- a/ghc/lib/std/Main.hi-boot
+++ b/ghc/lib/std/Main.hi-boot
@@ -7,5 +7,6 @@
 ---------------------------------------------------------------------------
  
 __interface Main 1 where
-__export Main main ;
+__export ! Main main ;
 1 main :: __forall [a] => PrelIOBase.IO a;
+
diff --git a/ghc/lib/std/PrelException.hi-boot b/ghc/lib/std/PrelException.hi-boot
index 8082910f3850..99cbf7995674 100644
--- a/ghc/lib/std/PrelException.hi-boot
+++ b/ghc/lib/std/PrelException.hi-boot
@@ -6,6 +6,6 @@
 ---------------------------------------------------------------------------
  
 __interface PrelErr 1 where
-__export PrelException ioError catch;
+__export ! PrelException ioError catch;
 1 ioError :: __forall [a] => PrelIOBase.IOError -> PrelIOBase.IO a ;
 1 catch :: __forall [a] => PrelIOBase.IO a -> (PrelIOBase.IOError -> PrelIOBase.IO a) -> PrelIOBase.IO a ;
diff --git a/ghc/lib/std/PrelPack.hi-boot b/ghc/lib/std/PrelPack.hi-boot
index 8ca2f13b5a7d..3a441837c755 100644
--- a/ghc/lib/std/PrelPack.hi-boot
+++ b/ghc/lib/std/PrelPack.hi-boot
@@ -8,11 +8,11 @@
 ---------------------------------------------------------------------------
  
 __interface PrelPack 1 where
-__export PrelPack packCString# unpackCString# unpackNBytes# unpackAppendCString# unpackFoldrCString#;
+__export ! PrelPack packCStringzh unpackCStringzh unpackNByteszh unpackAppendCStringzh unpackFoldrCStringzh ;
 
-1 packCString# :: [PrelBase.Char] -> PrelGHC.ByteArray# ;
-1 unpackCString# :: PrelGHC.Addr# -> [PrelBase.Char] ;
-1 unpackNBytes# :: PrelGHC.Addr# -> PrelGHC.Int# -> [PrelBase.Char] ;
-1 unpackAppendCString# :: PrelGHC.Addr# -> [PrelBase.Char] -> [PrelBase.Char] ;
-1 unpackFoldrCString# :: __forall [a] => PrelGHC.Addr# -> (PrelBase.Char -> a -> a) -> a -> a ;
+1 packCStringzh :: [PrelBase.Char] -> PrelGHC.ByteArrayzh ;
+1 unpackCStringzh :: PrelGHC.Addrzh -> [PrelBase.Char] ;
+1 unpackNByteszh :: PrelGHC.Addrzh -> PrelGHC.Intzh -> [PrelBase.Char] ;
+1 unpackAppendCStringzh :: PrelGHC.Addrzh -> [PrelBase.Char] -> [PrelBase.Char] ;
+1 unpackFoldrCStringzh :: __forall [a] => PrelGHC.Addrzh -> (PrelBase.Char -> a -> a) -> a -> a ;
 
-- 
GitLab