projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
72644e0
)
remove deprecated 'withObject'
author
Simon Marlow
<simonmar@microsoft.com>
Fri, 11 Aug 2006 15:23:50 +0000
(15:23 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Fri, 11 Aug 2006 15:23:50 +0000
(15:23 +0000)
Foreign/Marshal/Utils.hs
patch
|
blob
|
history
diff --git
a/Foreign/Marshal/Utils.hs
b/Foreign/Marshal/Utils.hs
index
b62e618
..
f1071f9
100644
(file)
--- a/
Foreign/Marshal/Utils.hs
+++ b/
Foreign/Marshal/Utils.hs
@@
-44,10
+44,6
@@
module Foreign.Marshal.Utils (
--
copyBytes, -- :: Ptr a -> Ptr a -> Int -> IO ()
moveBytes, -- :: Ptr a -> Ptr a -> Int -> IO ()
--
copyBytes, -- :: Ptr a -> Ptr a -> Int -> IO ()
moveBytes, -- :: Ptr a -> Ptr a -> Int -> IO ()
-
- -- ** DEPRECATED FUNCTIONS (don\'t use; they may disappear at any time)
- --
- withObject -- :: Storable a => a -> (Ptr a -> IO b) -> IO b
) where
import Data.Maybe
) where
import Data.Maybe
@@
-99,12
+95,6
@@
with val f =
res <- f ptr
return res
res <- f ptr
return res
--- old DEPRECATED name (don't use; may disappear at any time)
---
-withObject :: Storable a => a -> (Ptr a -> IO b) -> IO b
-{-# DEPRECATED withObject "use `with' instead" #-}
-withObject = with
-
-- marshalling of Boolean values (non-zero corresponds to 'True')
-- -----------------------------
-- marshalling of Boolean values (non-zero corresponds to 'True')
-- -----------------------------