Commit 5065cf49 authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel 🕺

base: Update `@since 4.8.2` annotations (re #11026)

This missed to perform in f8ba4b55
parent 130ca3eb
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
-- and in terms of API. You will almost certainly want to import this -- and in terms of API. You will almost certainly want to import this
-- module @qualified@. -- module @qualified@.
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
module Data.List.NonEmpty ( module Data.List.NonEmpty (
...@@ -118,7 +118,7 @@ infixr 5 :|, <| ...@@ -118,7 +118,7 @@ infixr 5 :|, <|
-- | Non-empty (and non-strict) list type. -- | Non-empty (and non-strict) list type.
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data NonEmpty a = a :| [a] data NonEmpty a = a :| [a]
deriving ( Eq, Ord, Show, Read, Data, Generic, Generic1 ) deriving ( Eq, Ord, Show, Read, Data, Generic, Generic1 )
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
-- --
-- > import Data.Semigroup -- > import Data.Semigroup
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
---------------------------------------------------------------------------- ----------------------------------------------------------------------------
module Data.Semigroup ( module Data.Semigroup (
Semigroup(..) Semigroup(..)
...@@ -86,7 +86,7 @@ infixr 6 <> ...@@ -86,7 +86,7 @@ infixr 6 <>
-- | The class of semigroups (types with an associative binary operation). -- | The class of semigroups (types with an associative binary operation).
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
class Semigroup a where class Semigroup a where
-- | An associative operation. -- | An associative operation.
-- --
......
...@@ -186,7 +186,7 @@ errorCallWithCallStackException s stk ...@@ -186,7 +186,7 @@ errorCallWithCallStackException s stk
-- | Pretty print 'SrcLoc' -- | Pretty print 'SrcLoc'
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
showSrcLoc :: SrcLoc -> String showSrcLoc :: SrcLoc -> String
showSrcLoc SrcLoc {..} showSrcLoc SrcLoc {..}
= foldr (++) "" = foldr (++) ""
...@@ -198,7 +198,7 @@ showSrcLoc SrcLoc {..} ...@@ -198,7 +198,7 @@ showSrcLoc SrcLoc {..}
-- | Pretty print 'CallStack' -- | Pretty print 'CallStack'
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
showCallStack :: CallStack -> String showCallStack :: CallStack -> String
showCallStack (CallStack stk@(_:_)) showCallStack (CallStack stk@(_:_))
= unlines ("CallStack:" : map (indent . showCallSite) stk) = unlines ("CallStack:" : map (indent . showCallSite) stk)
...@@ -214,7 +214,7 @@ showCallStack _ = error "CallStack cannot be empty!" ...@@ -214,7 +214,7 @@ showCallStack _ = error "CallStack cannot be empty!"
-- | Remove the most recent callsite from the 'CallStack' -- | Remove the most recent callsite from the 'CallStack'
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
popCallStack :: CallStack -> CallStack popCallStack :: CallStack -> CallStack
popCallStack (CallStack (_:rest)) = CallStack rest popCallStack (CallStack (_:rest)) = CallStack rest
popCallStack _ = error "CallStack cannot be empty!" popCallStack _ = error "CallStack cannot be empty!"
......
...@@ -348,7 +348,7 @@ unsafeUnmask (IO io) = IO $ unmaskAsyncExceptions# io ...@@ -348,7 +348,7 @@ unsafeUnmask (IO io) = IO $ unmaskAsyncExceptions# io
-- When called outside 'mask', or inside 'uninterruptibleMask', this -- When called outside 'mask', or inside 'uninterruptibleMask', this
-- function has no effect. -- function has no effect.
-- --
-- /Since: 4.8.2.0/ -- @since 4.9.0.0
interruptible :: IO a -> IO a interruptible :: IO a -> IO a
interruptible act = do interruptible act = do
st <- getMaskingState st <- getMaskingState
......
...@@ -96,11 +96,11 @@ latin1_checked_EF cfm = ...@@ -96,11 +96,11 @@ latin1_checked_EF cfm =
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- ASCII -- ASCII
-- | @since 4.8.2.0 -- | @since 4.9.0.0
ascii :: TextEncoding ascii :: TextEncoding
ascii = mkAscii ErrorOnCodingFailure ascii = mkAscii ErrorOnCodingFailure
-- | @since 4.8.2.0 -- | @since 4.9.0.0
mkAscii :: CodingFailureMode -> TextEncoding mkAscii :: CodingFailureMode -> TextEncoding
mkAscii cfm = TextEncoding { textEncodingName = "ASCII", mkAscii cfm = TextEncoding { textEncodingName = "ASCII",
mkTextDecoder = ascii_DF cfm, mkTextDecoder = ascii_DF cfm,
......
...@@ -55,18 +55,18 @@ import GHC.Word ...@@ -55,18 +55,18 @@ import GHC.Word
-- | @'Time'@ is defined as a @'StgWord64'@ in @stg/Types.h@ -- | @'Time'@ is defined as a @'StgWord64'@ in @stg/Types.h@
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
type RtsTime = Word64 type RtsTime = Word64
-- | @'nat'@ defined in @rts/Types.h@ -- | @'nat'@ defined in @rts/Types.h@
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
type RtsNat = #{type unsigned int} type RtsNat = #{type unsigned int}
-- | Should we produce a summary of the garbage collector statistics after the -- | Should we produce a summary of the garbage collector statistics after the
-- program has exited? -- program has exited?
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data GiveGCStats data GiveGCStats
= NoGCStats = NoGCStats
| CollectGCStats | CollectGCStats
...@@ -164,7 +164,7 @@ data DebugFlags = DebugFlags ...@@ -164,7 +164,7 @@ data DebugFlags = DebugFlags
-- | Should the RTS produce a cost-center summary? -- | Should the RTS produce a cost-center summary?
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data DoCostCentres data DoCostCentres
= CostCentresNone = CostCentresNone
| CostCentresSummary | CostCentresSummary
...@@ -198,7 +198,7 @@ data CCFlags = CCFlags ...@@ -198,7 +198,7 @@ data CCFlags = CCFlags
-- | What sort of heap profile are we collecting? -- | What sort of heap profile are we collecting?
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data DoHeapProfile data DoHeapProfile
= NoHeapProfiling = NoHeapProfiling
| HeapByCCS | HeapByCCS
...@@ -252,7 +252,7 @@ data ProfFlags = ProfFlags ...@@ -252,7 +252,7 @@ data ProfFlags = ProfFlags
-- | Is event tracing enabled? -- | Is event tracing enabled?
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data DoTrace data DoTrace
= TraceNone -- ^ no tracing = TraceNone -- ^ no tracing
| TraceEventLog -- ^ send tracing events to the event log | TraceEventLog -- ^ send tracing events to the event log
......
...@@ -71,13 +71,13 @@ import GHC.Integer () ...@@ -71,13 +71,13 @@ import GHC.Integer ()
-- function that was called, the 'SrcLoc' is the call-site. The list is -- function that was called, the 'SrcLoc' is the call-site. The list is
-- ordered with the most recently called function at the head. -- ordered with the most recently called function at the head.
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data CallStack = CallStack { getCallStack :: [([Char], SrcLoc)] } data CallStack = CallStack { getCallStack :: [([Char], SrcLoc)] }
-- See Note [Overview of implicit CallStacks] -- See Note [Overview of implicit CallStacks]
-- | A single location in the source code. -- | A single location in the source code.
-- --
-- @since 4.8.2.0 -- @since 4.9.0.0
data SrcLoc = SrcLoc data SrcLoc = SrcLoc
{ srcLocPackage :: [Char] { srcLocPackage :: [Char]
, srcLocModule :: [Char] , srcLocModule :: [Char]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment