Mark DEPRECATED pragmas with when they were added
authorIan Lynagh <ian@well-typed.com>
Sat, 16 Feb 2013 00:43:14 +0000 (00:43 +0000)
committerIan Lynagh <ian@well-typed.com>
Sat, 16 Feb 2013 00:56:29 +0000 (00:56 +0000)
18 files changed:
libraries/base/Control/Concurrent/Chan.hs
libraries/base/Control/Concurrent/MVar.hs
libraries/base/Control/Monad/Instances.hs
libraries/base/Control/Monad/ST.hs
libraries/base/Control/Monad/ST/Lazy.hs
libraries/base/Data/Bits.hs
libraries/base/Data/OldTypeable.hs
libraries/base/Data/OldTypeable/Internal.hs
libraries/base/Data/Typeable/Internal.hs
libraries/base/Debug/Trace.hs
libraries/base/Foreign.hs
libraries/base/Foreign/ForeignPtr.hs
libraries/base/Foreign/Marshal.hs
libraries/base/Foreign/Marshal/Error.hs
libraries/base/GHC/Conc/Sync.lhs
libraries/base/GHC/Exts.hs
libraries/base/GHC/Generics.hs
libraries/base/GHC/IO.hs

index 5781b9f..ca4c17c 100644 (file)
@@ -142,7 +142,7 @@ unGetChan (Chan readVar _) val = do
    modifyMVar_ readVar $ \read_end -> do
      putMVar new_read_end (ChItem val read_end)
      return new_read_end
-{-# DEPRECATED unGetChan "if you need this operation, use Control.Concurrent.STM.TChan instead.  See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-}
+{-# DEPRECATED unGetChan "if you need this operation, use Control.Concurrent.STM.TChan instead.  See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-} -- deprecated in 7.0
 
 -- |Returns 'True' if the supplied 'Chan' is empty.
 isEmptyChan :: Chan a -> IO Bool
@@ -151,7 +151,7 @@ isEmptyChan (Chan readVar writeVar) = do
      w <- readMVar writeVar
      let eq = r == w
      eq `seq` return eq
-{-# DEPRECATED isEmptyChan "if you need this operation, use Control.Concurrent.STM.TChan instead.  See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-}
+{-# DEPRECATED isEmptyChan "if you need this operation, use Control.Concurrent.STM.TChan instead.  See http://hackage.haskell.org/trac/ghc/ticket/4154 for details" #-} -- deprecated in 7.0
 
 -- Operators for interfacing with functional streams.
 
index 5f1b4fc..f941be9 100644 (file)
@@ -263,7 +263,7 @@ modifyMVarMasked m io =
     putMVar m a'
     return b
 
-{-# DEPRECATED addMVarFinalizer "use mkWeakMVar instead" #-}
+{-# DEPRECATED addMVarFinalizer "use mkWeakMVar instead" #-} -- deprecated in 7.6
 addMVarFinalizer :: MVar a -> IO () -> IO ()
 addMVarFinalizer = GHC.MVar.addMVarFinalizer
 
index 7c31b34..353f1c4 100644 (file)
@@ -16,5 +16,5 @@
 -- 'Functor' instances for @(,) a@ and @'Either' a@.
 
 module Control.Monad.Instances (Functor(..),Monad(..)) where
-
+-- module DEPRECATED -- deprecated in 7.6
 import Prelude
index fe8a837..6113055 100644 (file)
@@ -39,9 +39,7 @@ module Control.Monad.ST (
 import Control.Monad.ST.Safe
 import qualified Control.Monad.ST.Unsafe as U
 
-{-# DEPRECATED unsafeInterleaveST, unsafeIOToST, unsafeSTToIO
-              "Please import from Control.Monad.ST.Unsafe instead; This will be removed in the next release"
- #-}
+{-# DEPRECATED unsafeInterleaveST, unsafeIOToST, unsafeSTToIO "Please import from Control.Monad.ST.Unsafe instead; This will be removed in the next release" #-} -- deprecated in 7.2
 
 {-# INLINE unsafeInterleaveST #-}
 unsafeInterleaveST :: ST s a -> ST s a
index 400addd..26effa4 100644 (file)
@@ -37,9 +37,7 @@ module Control.Monad.ST.Lazy (
 import Control.Monad.ST.Lazy.Safe
 import qualified Control.Monad.ST.Lazy.Unsafe as U
 
-{-# DEPRECATED unsafeInterleaveST, unsafeIOToST
-              "Please import from Control.Monad.ST.Lazy.Unsafe instead; This will be removed in the next release"
- #-}
+{-# DEPRECATED unsafeInterleaveST, unsafeIOToST "Please import from Control.Monad.ST.Lazy.Unsafe instead; This will be removed in the next release" #-} -- deprecated in 7.2
 
 {-# INLINE unsafeInterleaveST #-}
 unsafeInterleaveST :: ST s a -> ST s a
index 63e6b81..2385ab9 100644 (file)
@@ -69,7 +69,7 @@ infixl 7 .&.
 infixl 6 `xor`
 infixl 5 .|.
 
-{-# DEPRECATED bitSize "Use bitSizeMaybe or finiteBitSize instead" #-}
+{-# DEPRECATED bitSize "Use bitSizeMaybe or finiteBitSize instead" #-} -- deprecated in 7.8
 
 {-| 
 The 'Bits' class defines bitwise operations over integral types.
index 2d5f0d4..bed7ad1 100644 (file)
@@ -30,7 +30,7 @@
 --
 -----------------------------------------------------------------------------
 
-module Data.OldTypeable {-# DEPRECATED "Use Data.Typeable instead" #-}
+module Data.OldTypeable {-# DEPRECATED "Use Data.Typeable instead" #-} -- deprecated in 7.8
   (
 
         -- * The Typeable class
@@ -121,7 +121,7 @@ import Hugs.ConcBase    ( MVar )
 
 #include "OldTypeable.h"
 
-{-# DEPRECATED typeRepKey "TypeRep itself is now an instance of Ord" #-}
+{-# DEPRECATED typeRepKey "TypeRep itself is now an instance of Ord" #-} -- deprecated in 7.2
 -- | (DEPRECATED) Returns a unique key associated with a 'TypeRep'.
 -- This function is deprecated because 'TypeRep' itself is now an
 -- instance of 'Ord', so mappings can be made directly with 'TypeRep'
@@ -146,7 +146,7 @@ newtype TypeRepKey = TypeRepKey Fingerprint
 
 ----------------- Construction ---------------------
 
-{-# DEPRECATED mkTyCon "either derive Typeable, or use mkTyCon3 instead" #-}
+{-# DEPRECATED mkTyCon "either derive Typeable, or use mkTyCon3 instead" #-} -- deprecated in 7.2
 -- | Backwards-compatible API
 mkTyCon :: String       -- ^ unique string
         -> TyCon        -- ^ A unique 'TyCon' object
index 96bbf0b..5c26130 100644 (file)
@@ -22,7 +22,7 @@
 {-# LANGUAGE DeriveDataTypeable, StandaloneDeriving #-}
 #endif
 
-module Data.OldTypeable.Internal {-# DEPRECATED "Use Data.Typeable.Internal instead" #-} (
+module Data.OldTypeable.Internal {-# DEPRECATED "Use Data.Typeable.Internal instead" #-} ( -- deprecated in 7.8
     TypeRep(..),
     TyCon(..),
     mkTyCon,
@@ -189,7 +189,7 @@ typeRepArgs :: TypeRep -> [TypeRep]
 typeRepArgs (TypeRep _ _ args) = args
 
 -- | Observe string encoding of a type representation
-{-# DEPRECATED tyConString "renamed to tyConName; tyConModule and tyConPackage are also available." #-}
+{-# DEPRECATED tyConString "renamed to tyConName; tyConModule and tyConPackage are also available." #-} -- deprecated in 7.4
 tyConString :: TyCon   -> String
 tyConString = tyConName
 
index 8749275..440c4e8 100644 (file)
@@ -178,7 +178,7 @@ typeRepArgs :: TypeRep -> [TypeRep]
 typeRepArgs (TypeRep _ _ args) = args
 
 -- | Observe string encoding of a type representation
-{-# DEPRECATED tyConString "renamed to tyConName; tyConModule and tyConPackage are also available." #-}
+{-# DEPRECATED tyConString "renamed to tyConName; tyConModule and tyConPackage are also available." #-} -- deprecated in 7.4
 tyConString :: TyCon   -> String
 tyConString = tyConName
 
index f5839ee..94568d2 100644 (file)
@@ -86,7 +86,7 @@ foreign import ccall unsafe "HsBase.h debugBelch2"
 -- | Deprecated. Use 'traceIO'.
 putTraceMsg :: String -> IO ()
 putTraceMsg = traceIO
-{-# DEPRECATED putTraceMsg "Use Debug.Trace.traceIO" #-}
+{-# DEPRECATED putTraceMsg "Use Debug.Trace.traceIO" #-} -- deprecated in 7.4
 
 
 {-# NOINLINE trace #-}
index caad104..dbdc905 100644 (file)
@@ -47,7 +47,7 @@ import Foreign.Marshal
 import GHC.IO (IO)
 import qualified GHC.IO (unsafePerformIO)
 
-{-# DEPRECATED unsafePerformIO "Use System.IO.Unsafe.unsafePerformIO instead; This function will be removed in the next release" #-}
+{-# DEPRECATED unsafePerformIO "Use System.IO.Unsafe.unsafePerformIO instead; This function will be removed in the next release" #-} -- deprecated in 7.2
 
 {-# INLINE unsafePerformIO #-}
 unsafePerformIO :: IO a -> a
index 5288ce7..be6dec0 100644 (file)
@@ -57,7 +57,7 @@ import Foreign.ForeignPtr.Safe
 import Foreign.Ptr ( Ptr )
 import qualified Foreign.ForeignPtr.Unsafe as U
 
-{-# DEPRECATED unsafeForeignPtrToPtr "Use Foreign.ForeignPtr.Unsafe.unsafeForeignPtrToPtr instead; This function will be removed in the next release" #-}
+{-# DEPRECATED unsafeForeignPtrToPtr "Use Foreign.ForeignPtr.Unsafe.unsafeForeignPtrToPtr instead; This function will be removed in the next release" #-} -- deprecated in 7.2
 {-# INLINE unsafeForeignPtrToPtr #-}
 unsafeForeignPtrToPtr :: ForeignPtr a -> Ptr a
 unsafeForeignPtrToPtr = U.unsafeForeignPtrToPtr
index cb0ef41..ef81cec 100644 (file)
@@ -50,9 +50,7 @@ results in undefined behaviour.
 It is expected that this operation will be
 replaced in a future revision of Haskell.
 -}
-{-# DEPRECATED unsafeLocalState
-               "Please import from Foreign.Marshall.Unsafe instead; This will be removed in the next release"
- #-}
+{-# DEPRECATED unsafeLocalState "Please import from Foreign.Marshall.Unsafe instead; This will be removed in the next release" #-} -- deprecated in 7.2
 unsafeLocalState :: IO a -> a
 unsafeLocalState = unsafePerformIO
 
index 3048ffe..e26716c 100644 (file)
@@ -81,4 +81,4 @@ throwIfNull  = throwIf (== nullPtr) . const
 --
 void     :: IO a -> IO ()
 void act  = act >> return ()
-{-# DEPRECATED void "use Control.Monad.void instead" #-}
+{-# DEPRECATED void "use Control.Monad.void instead" #-} -- deprecated in 7.6
index 6646e7c..7c6c1b6 100644 (file)
@@ -45,7 +45,7 @@ module GHC.Conc.Sync
         , forkIOUnmasked
         , forkIOWithUnmask
         , forkOn
-        , forkOnIO    -- DEPRECATED
+        , forkOnIO    -- DEPRECATED -- deprecated in 7.2
         , forkOnIOUnmasked
         , forkOnWithUnmask
         , numCapabilities
@@ -208,7 +208,7 @@ forkIO action = IO $ \ s ->
  where
   action_plus = catchException action childHandler
 
-{-# DEPRECATED forkIOUnmasked "use forkIOWithUnmask instead" #-}
+{-# DEPRECATED forkIOUnmasked "use forkIOWithUnmask instead" #-} -- deprecated in 7.2
 -- | This function is deprecated; use 'forkIOWithUnmask' instead
 forkIOUnmasked :: IO () -> IO ThreadId
 forkIOUnmasked io = forkIO (unsafeUnmask io)
@@ -258,12 +258,12 @@ forkOn (I# cpu) action = IO $ \ s ->
  where
   action_plus = catchException action childHandler
 
-{-# DEPRECATED forkOnIO "renamed to forkOn" #-}
+{-# DEPRECATED forkOnIO "renamed to forkOn" #-} -- deprecated in 7.2
 -- | This function is deprecated; use 'forkOn' instead
 forkOnIO :: Int -> IO () -> IO ThreadId
 forkOnIO = forkOn
 
-{-# DEPRECATED forkOnIOUnmasked "use forkOnWithUnmask instead" #-}
+{-# DEPRECATED forkOnIOUnmasked "use forkOnWithUnmask instead" #-} -- deprecated in 7.2
 -- | This function is deprecated; use 'forkOnWIthUnmask' instead
 forkOnIOUnmasked :: Int -> IO () -> IO ThreadId
 forkOnIOUnmasked cpu io = forkOn cpu (unsafeUnmask io)
index 8191720..5639e13 100755 (executable)
@@ -113,7 +113,7 @@ groupByFB c n eq xs0 = groupByFBCore xs0
 
 traceEvent :: String -> IO ()
 traceEvent = Debug.Trace.traceEventIO
-{-# DEPRECATED traceEvent "Use Debug.Trace.traceEvent or Debug.Trace.traceEventIO" #-}
+{-# DEPRECATED traceEvent "Use Debug.Trace.traceEvent or Debug.Trace.traceEventIO" #-} -- deprecated in 7.4
 
 
 {- **********************************************************************
index 672e725..e669af3 100644 (file)
@@ -105,8 +105,8 @@ data P
 type Rec0  = K1 R
 -- | Type synonym for encoding parameters (other than the last)
 type Par0  = K1 P
-{-# DEPRECATED Par0 "Par0 is no longer used; use Rec0 instead" #-}
-{-# DEPRECATED P "P is no longer used; use R instead" #-}
+{-# DEPRECATED Par0 "Par0 is no longer used; use Rec0 instead" #-} -- deprecated in 7.6
+{-# DEPRECATED P "P is no longer used; use R instead" #-} -- deprecated in 7.6
 
 -- | Tag for M1: datatype
 data D
index 0a39e40..c5239a4 100644 (file)
@@ -302,7 +302,7 @@ throwIO e = IO (raiseIO# (toException e))
 -- -----------------------------------------------------------------------------
 -- Controlling asynchronous exception delivery
 
-{-# DEPRECATED block "use Control.Exception.mask instead" #-}
+{-# DEPRECATED block "use Control.Exception.mask instead" #-} -- deprecated in 7.0
 -- | Note: this function is deprecated, please use 'mask' instead.
 --
 -- Applying 'block' to a computation will
@@ -322,7 +322,7 @@ throwIO e = IO (raiseIO# (toException e))
 block :: IO a -> IO a
 block (IO io) = IO $ maskAsyncExceptions# io
 
-{-# DEPRECATED unblock "use Control.Exception.mask instead" #-}
+{-# DEPRECATED unblock "use Control.Exception.mask instead" #-} -- deprecated in 7.0
 -- | Note: this function is deprecated, please use 'mask' instead.
 --
 -- To re-enable asynchronous exceptions inside the scope of
@@ -358,7 +358,7 @@ getMaskingState  = IO $ \s ->
                              1# -> MaskedUninterruptible
                              _  -> MaskedInterruptible #)
 
-{-# DEPRECATED blocked "use Control.Exception.getMaskingState instead" #-}
+{-# DEPRECATED blocked "use Control.Exception.getMaskingState instead" #-} -- deprecated in 7.2
 -- | returns True if asynchronous exceptions are blocked in the
 -- current thread.
 blocked :: IO Bool