From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 11 Aug 2006 15:23:50 +0000 (+0000)
Subject: remove deprecated 'withObject'
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5bb0887190db0e4874200d07b2d85de068e3ef7a;p=ghc-base.git

remove deprecated 'withObject'
---

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')
 -- -----------------------------