From: sof <unknown>
Date: Mon, 25 Aug 1997 21:49:52 +0000 (+0000)
Subject: [project @ 1997-08-25 21:49:52 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~119
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=50438e7d3264e13c46f1c9cbb1966b0c99012c6e;p=ghc-hetmet.git

[project @ 1997-08-25 21:49:52 by sof]
rename unpackCString2# to unpackNBytes#
---

diff --git a/ghc/compiler/prelude/PrelVals.lhs b/ghc/compiler/prelude/PrelVals.lhs
index 2095524..6af3ca2 100644
--- a/ghc/compiler/prelude/PrelVals.lhs
+++ b/ghc/compiler/prelude/PrelVals.lhs
@@ -163,7 +163,7 @@ unpackCStringId
 -- but I don't like wired-in IdInfos (WDP)
 
 unpackCString2Id -- for cases when a string has a NUL in it
-  = pcMiscPrelId unpackCString2IdKey pACKED_STRING SLIT("unpackCString2#")
+  = pcMiscPrelId unpackCString2IdKey pACKED_STRING SLIT("unpackNBytes#")
 		 (mkFunTys [addrPrimTy{-a char *-}, intPrimTy{-length-}] stringTy)
 		 noIdInfo