diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-22 16:59:08 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-09-22 18:32:50 +0200 |
| commit | 0a5ecb536e0f25383cfeacc6f50b0d28be297da4 (patch) | |
| tree | c57a8e802bfac1e2ab83f04d14e9e9caf0eeb48f /libraries/base/Text | |
| parent | 2642d9f6eac5879c7d38bc51726bede1bef77df4 (diff) | |
| download | haskell-0a5ecb536e0f25383cfeacc6f50b0d28be297da4.tar.gz | |
Add Haddock `/Since: 4.5.[01].0/` comments to symbols
This commit retroactively adds `/Since: 4.5.[01].0/` annotations to symbols
newly added/exposed in `base-4.5.[01].0` (as shipped with GHC 7.4.[12]).
See also 6368362f which adds the respective annotation for symbols newly
added in `base-4.7.0.0` (that goes together with GHC 7.8.1).
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'libraries/base/Text')
| -rw-r--r-- | libraries/base/Text/Read/Lex.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libraries/base/Text/Read/Lex.hs b/libraries/base/Text/Read/Lex.hs index f2ef4cc922..ed049f8ef1 100644 --- a/libraries/base/Text/Read/Lex.hs +++ b/libraries/base/Text/Read/Lex.hs @@ -57,7 +57,7 @@ data Lexeme | Punc String -- ^ Punctuation or reserved symbol, e.g. @(@, @::@ | Ident String -- ^ Haskell identifier, e.g. @foo@, @Baz@ | Symbol String -- ^ Haskell symbol, e.g. @>>@, @:%@ - | Number Number + | Number Number -- ^ /Since: 4.6.0.0/ | EOF deriving (Eq, Show) @@ -69,6 +69,7 @@ data Number = MkNumber Int -- Base (Maybe Integer) -- Exponent deriving (Eq, Show) +-- | /Since: 4.5.1.0/ numberToInteger :: Number -> Maybe Integer numberToInteger (MkNumber base iPart) = Just (val (fromIntegral base) 0 iPart) numberToInteger (MkDecimal iPart Nothing Nothing) = Just (val 10 0 iPart) @@ -102,6 +103,7 @@ numberToFixed _ _ = Nothing -- * We only worry about numbers that have an exponent. If they don't -- have an exponent then the Rational won't be much larger than the -- Number, so there is no problem +-- | /Since: 4.5.1.0/ numberToRangedRational :: (Int, Int) -> Number -> Maybe Rational -- Nothing = Inf numberToRangedRational (neg, pos) n@(MkDecimal iPart mFPart (Just exp)) |