Permalink
Browse files

Mark DEPRECATED pragmas with when they were added

  • Loading branch information...
1 parent f231a01 commit 9bc15eadf3c9176f647b51263f0633dab7afe06b @igfoo igfoo committed Feb 16, 2013
View
4 Control/Concurrent/Chan.hs
@@ -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.
View
2 Control/Concurrent/MVar.hs
@@ -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
View
2 Control/Monad/Instances.hs
@@ -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
View
4 Control/Monad/ST.hs
@@ -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
View
4 Control/Monad/ST/Lazy.hs
@@ -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
View
2 Data/Bits.hs
@@ -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.
View
6 Data/OldTypeable.hs
@@ -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
View
4 Data/OldTypeable/Internal.hs
@@ -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
View
2 Data/Typeable/Internal.hs
@@ -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
View
2 Debug/Trace.hs
@@ -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 #-}
View
2 Foreign.hs
@@ -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
View
2 Foreign/ForeignPtr.hs
@@ -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
View
4 Foreign/Marshal.hs
@@ -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
View
2 Foreign/Marshal/Error.hs
@@ -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
View
8 GHC/Conc/Sync.lhs
@@ -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)
View
2 GHC/Exts.hs
@@ -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
{- **********************************************************************
View
4 GHC/Generics.hs
@@ -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
View
6 GHC/IO.hs
@@ -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

0 comments on commit 9bc15ea

Please sign in to comment.