{-# OPTIONS -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
---
+-- |
-- 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.4 2001/09/13 11:37:43 simonmar Exp $
---
-- Utilities for primitive marshaling
--
-----------------------------------------------------------------------------
import GHC.Num
import GHC.IOBase
import GHC.Base
+#else
+#define unsafeChr chr
#endif
-----------------------------------------------------------------------------