diff options
Diffstat (limited to 'libraries/base/System')
-rw-r--r-- | libraries/base/System/Environment.hs | 6 | ||||
-rw-r--r-- | libraries/base/System/Environment/ExecutablePath.hsc | 4 | ||||
-rw-r--r-- | libraries/base/System/Exit.hs | 2 | ||||
-rw-r--r-- | libraries/base/System/IO/Error.hs | 4 | ||||
-rw-r--r-- | libraries/base/System/IO/Unsafe.hs | 2 | ||||
-rw-r--r-- | libraries/base/System/Mem.hs | 4 | ||||
-rw-r--r-- | libraries/base/System/Mem/StableName.hs | 2 |
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 |