[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 06b27c4..b1603c3 100644 (file)
--- a/Foreign/C/String.hs
+++ b/Foreign/C/String.hs
@@ -52,6 +52,8 @@ import GHC.Real
 import GHC.Num
 import GHC.IOBase
 import GHC.Base
+#else
+#define unsafeChr chr
 #endif
 
 -----------------------------------------------------------------------------