summaryrefslogtreecommitdiff
path: root/libraries/base/System
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/base/System')
-rw-r--r--libraries/base/System/Environment.hs6
-rw-r--r--libraries/base/System/Environment/ExecutablePath.hsc4
-rw-r--r--libraries/base/System/Exit.hs2
-rw-r--r--libraries/base/System/IO/Error.hs4
-rw-r--r--libraries/base/System/IO/Unsafe.hs2
-rw-r--r--libraries/base/System/Mem.hs4
-rw-r--r--libraries/base/System/Mem/StableName.hs2
7 files changed, 12 insertions, 12 deletions
diff --git a/libraries/base/System/Environment.hs b/libraries/base/System/Environment.hs
index 9beefc4be3..066329c4e7 100644
--- a/libraries/base/System/Environment.hs
+++ b/libraries/base/System/Environment.hs
@@ -212,7 +212,7 @@ foreign import WINDOWS_CCONV unsafe "windows.h GetLastError"
--
-- For POSIX users, this is equivalent to 'System.Posix.Env.getEnv'.
--
--- /Since: 4.6.0.0/
+-- @since 4.6.0.0
lookupEnv :: String -> IO (Maybe String)
#ifdef mingw32_HOST_OS
lookupEnv name = withCWString name $ \s -> try_size s 256
@@ -267,7 +267,7 @@ ioe_missingEnvVar name = ioException (IOError Nothing NoSuchThing "getEnv"
-- Throws `Control.Exception.IOException` if @name@ is the empty string or
-- contains an equals sign.
--
--- /Since: 4.7.0.0/
+-- @since 4.7.0.0
setEnv :: String -> String -> IO ()
setEnv key_ value_
| null key = throwIO (mkIOError InvalidArgument "setEnv" Nothing Nothing)
@@ -311,7 +311,7 @@ foreign import ccall unsafe "putenv" c_putenv :: CString -> IO CInt
-- Throws `Control.Exception.IOException` if @name@ is the empty string or
-- contains an equals sign.
--
--- /Since: 4.7.0.0/
+-- @since 4.7.0.0
unsetEnv :: String -> IO ()
#ifdef mingw32_HOST_OS
unsetEnv key = withCWString key $ \k -> do
diff --git a/libraries/base/System/Environment/ExecutablePath.hsc b/libraries/base/System/Environment/ExecutablePath.hsc
index 22665f419b..410e3acda2 100644
--- a/libraries/base/System/Environment/ExecutablePath.hsc
+++ b/libraries/base/System/Environment/ExecutablePath.hsc
@@ -13,7 +13,7 @@
--
-- Function to retrieve the absolute filepath of the current executable.
--
--- /Since: 4.6.0.0/
+-- @since 4.6.0.0
-----------------------------------------------------------------------------
module System.Environment.ExecutablePath ( getExecutablePath ) where
@@ -54,7 +54,7 @@ import System.Posix.Internals
-- Note that for scripts and interactive sessions, this is the path to
-- the interpreter (e.g. ghci.)
--
--- /Since: 4.6.0.0/
+-- @since 4.6.0.0
getExecutablePath :: IO FilePath
--------------------------------------------------------------------------------
diff --git a/libraries/base/System/Exit.hs b/libraries/base/System/Exit.hs
index 088a76bd96..2d0e6928ae 100644
--- a/libraries/base/System/Exit.hs
+++ b/libraries/base/System/Exit.hs
@@ -77,6 +77,6 @@ exitSuccess = exitWith ExitSuccess
-- | Write given error message to `stderr` and terminate with `exitFailure`.
--
--- /Since: 4.8.0.0/
+-- @since 4.8.0.0
die :: String -> IO a
die err = hPutStrLn stderr err >> exitFailure
diff --git a/libraries/base/System/IO/Error.hs b/libraries/base/System/IO/Error.hs
index b281fd59eb..2de6629a89 100644
--- a/libraries/base/System/IO/Error.hs
+++ b/libraries/base/System/IO/Error.hs
@@ -98,7 +98,7 @@ import Text.Show
-- Non-I\/O exceptions are not caught by this variant; to catch all
-- exceptions, use 'Control.Exception.try' from "Control.Exception".
--
--- /Since: 4.4.0.0/
+-- @since 4.4.0.0
tryIOError :: IO a -> IO (Either IOError a)
tryIOError f = catch (do r <- f
return (Right r))
@@ -332,6 +332,6 @@ annotateIOError ioe loc hdl path =
-- Non-I\/O exceptions are not caught by this variant; to catch all
-- exceptions, use 'Control.Exception.catch' from "Control.Exception".
--
--- /Since: 4.4.0.0/
+-- @since 4.4.0.0
catchIOError :: IO a -> (IOError -> IO a) -> IO a
catchIOError = catch
diff --git a/libraries/base/System/IO/Unsafe.hs b/libraries/base/System/IO/Unsafe.hs
index 91ce45c62b..a28fb4be1b 100644
--- a/libraries/base/System/IO/Unsafe.hs
+++ b/libraries/base/System/IO/Unsafe.hs
@@ -40,7 +40,7 @@ import Control.Exception
-- In this case, the child thread will receive a @NonTermination@
-- exception instead of waiting for the value of @r@ to be computed.
--
--- /Since: 4.5.0.0/
+-- @since 4.5.0.0
unsafeFixIO :: (a -> IO a) -> IO a
unsafeFixIO k = do
ref <- newIORef (throw NonTermination)
diff --git a/libraries/base/System/Mem.hs b/libraries/base/System/Mem.hs
index 09dfdf9191..a894f4d343 100644
--- a/libraries/base/System/Mem.hs
+++ b/libraries/base/System/Mem.hs
@@ -26,10 +26,10 @@ performGC = performMajorGC
-- | Triggers an immediate garbage collection.
--
--- /Since: 4.7.0.0/
+-- @since 4.7.0.0
foreign import ccall "performMajorGC" performMajorGC :: IO ()
-- | Triggers an immediate minor garbage collection.
--
--- /Since: 4.7.0.0/
+-- @since 4.7.0.0
foreign import ccall "performGC" performMinorGC :: IO ()
diff --git a/libraries/base/System/Mem/StableName.hs b/libraries/base/System/Mem/StableName.hs
index 9da42e516e..56f815cf33 100644
--- a/libraries/base/System/Mem/StableName.hs
+++ b/libraries/base/System/Mem/StableName.hs
@@ -115,7 +115,7 @@ instance Eq (StableName a) where
-- | Equality on 'StableName' that does not require that the types of
-- the arguments match.
--
--- /Since: 4.7.0.0/
+-- @since 4.7.0.0
eqStableName :: StableName a -> StableName b -> Bool
eqStableName (StableName sn1) (StableName sn2) =
case eqStableName# sn1 sn2 of