Commit 4713dad8 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-13 10:27:27 by simonmar]

Don't use packString for GHC > 5.00
parent 7ae38197
-----------------------------------------------------------------------------
-- $Id: Printf.lhs,v 1.3 2001/08/07 11:13:46 simonmar Exp $
-- $Id: Printf.lhs,v 1.4 2001/08/13 10:27:27 simonmar Exp $
-- (c) Simon Marlow 1997-2001
-----------------------------------------------------------------------------
......@@ -43,9 +43,10 @@
#else
> allocaBytes bUFSIZE $ \buf -> do
> snprintf buf (fromIntegral bUFSIZE) (packString format) num
> peekCString buf
> allocaBytes bUFSIZE $ \buf ->
> withCString format $ \cformat -> do
> snprintf buf (fromIntegral bUFSIZE) cformat num
> peekCString buf
#endif
......@@ -69,14 +70,13 @@
> if_maybe Nothing f = []
> if_maybe (Just s) f = f s
> type PackedString = ByteArray Int
#if __GLASGOW_HASKELL__ < 500
> type PackedString = ByteArray Int
> foreign import unsafe snprintf :: Addr -> CSize -> PackedString -> Float -> IO ()
#else
> foreign import unsafe snprintf :: CString -> CSize -> PackedString -> Float -> IO ()
> foreign import unsafe snprintf :: CString -> CSize -> CString -> Float -> IO ()
#endif
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment