[project @ 2002-08-03 19:32:16 by reid]

[ghc-base.git] / Foreign / C / String.hs

diff --git a/Foreign/C/String.hs b/Foreign/C/String.hs
index 6f465e5..b1603c3 100644 (file)
--- a/Foreign/C/String.hs
+++ b/Foreign/C/String.hs
@@ -3,14 +3,12 @@
 -- |
 -- Module      :  Foreign.C.String
 -- Copyright   :  (c) The FFI task force 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  ffi@haskell.org
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: String.hs,v 1.5 2002/04/24 16:31:44 simonmar Exp $
---
 -- Utilities for primitive marshaling
 --
 -----------------------------------------------------------------------------
@@ -54,6 +52,8 @@ import GHC.Real
 import GHC.Num
 import GHC.IOBase
 import GHC.Base
+#else
+#define unsafeChr chr
 #endif
 
 -----------------------------------------------------------------------------