From f6acf71b4690b055a56254557ae5eb492a07beff Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Thu, 11 Jan 2001 19:48:28 +0000
Subject: [PATCH] [project @ 2001-01-11 19:48:28 by qrczak] CChar is Num so
 NUL can be written as 0.

---
 ghc/lib/std/PrelCString.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
 --
-- 
1.7.10.4