From: qrczak <unknown>
Date: Thu, 11 Jan 2001 19:48:28 +0000 (+0000)
Subject: [project @ 2001-01-11 19:48:28 by qrczak]
X-Git-Tag: Approximately_9120_patches~2942
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f6acf71b4690b055a56254557ae5eb492a07beff;p=ghc-hetmet.git

[project @ 2001-01-11 19:48:28 by qrczak]
CChar is Num so NUL can be written as 0.
---

diff --git a/ghc/lib/std/PrelCString.lhs b/ghc/lib/std/PrelCString.lhs
index 753416f..5c00191 100644
--- a/ghc/lib/std/PrelCString.lhs
+++ b/ghc/lib/std/PrelCString.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelCString.lhs,v 1.1 2001/01/11 17:25:57 simonmar Exp $
+% $Id: PrelCString.lhs,v 1.2 2001/01/11 19:48:28 qrczak Exp $
 %
 % (c) The FFI task force, 2000
 %
@@ -102,7 +102,7 @@ withCStringLen str act  = withArray (charsToCChars str) $ act . pairLength str
 -- C's end of string character
 --
 nUL :: CChar
-nUL  = castCharToCChar '\0'
+nUL  = 0
 
 -- pair a C string with the length of the given Haskell string
 --