From 5bb0887190db0e4874200d07b2d85de068e3ef7a Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 11 Aug 2006 15:23:50 +0000 Subject: [PATCH] remove deprecated 'withObject' --- Foreign/Marshal/Utils.hs | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/Foreign/Marshal/Utils.hs b/Foreign/Marshal/Utils.hs index b62e618..f1071f9 100644 --- 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 () - - -- ** 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 @@ -99,12 +95,6 @@ with val f = 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') -- ----------------------------- -- 1.7.10.4