twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

generalise type of `io'

Browse Source
This commit is contained in:
Don Stewart 2007-11-21 05:44:07 +00:00
parent 92b4510d7b
commit c95b8d9160
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Core.hs
View File

@ -276,13 +276,13 @@ instance Message LayoutMessages
-- | General utilities -- | General utilities
-- --
-- Lift an IO action into the X monad -- Lift an IO action into the X monad
io :: IO a -> X a io :: MonadIO m => IO a -> m a
io = liftIO io = liftIO
-- | Lift an IO action into the X monad. If the action results in an IO -- | Lift an IO action into the X monad. If the action results in an IO
-- exception, log the exception to stderr and continue normal execution. -- exception, log the exception to stderr and continue normal execution.
catchIO :: IO () -> X () catchIO :: IO () -> X ()
catchIO f = liftIO (f `catch` \e -> hPrint stderr e >> hFlush stderr) catchIO f = io (f `catch` \e -> hPrint stderr e >> hFlush stderr)
-- | spawn. Launch an external application -- | spawn. Launch an external application
spawn :: MonadIO m => String -> m () spawn :: MonadIO m => String -> m ()
@ -291,7 +291,7 @@ spawn x = doubleFork $ executeFile "/bin/sh" False ["-c", x] Nothing
-- | Double fork and execute an IO action (usually one of the exec family of -- | Double fork and execute an IO action (usually one of the exec family of
-- functions) -- functions)
doubleFork :: MonadIO m => IO () -> m () doubleFork :: MonadIO m => IO () -> m ()
doubleFork m = liftIO $ do doubleFork m = io $ do
pid <- forkProcess $ do pid <- forkProcess $ do
forkProcess (createSession >> m) forkProcess (createSession >> m)
exitWith ExitSuccess exitWith ExitSuccess
@ -326,7 +326,7 @@ restart mprog resume = do
-- GHC's is spawned. -- GHC's is spawned.
-- --
recompile :: MonadIO m => Bool -> m () recompile :: MonadIO m => Bool -> m ()
recompile force = liftIO $ do recompile force = io $ do
dir <- (++ "/.xmonad") <$> getHomeDirectory dir <- (++ "/.xmonad") <$> getHomeDirectory
let bin = dir ++ "/" ++ "xmonad" let bin = dir ++ "/" ++ "xmonad"
err = bin ++ ".errors" err = bin ++ ".errors"
@ -358,4 +358,4 @@ whenX a f = a >>= \b -> when b f
-- | A 'trace' for the X monad. Logs a string to stderr. The result may -- | A 'trace' for the X monad. Logs a string to stderr. The result may
-- be found in your .xsession-errors file -- be found in your .xsession-errors file
trace :: MonadIO m => String -> m () trace :: MonadIO m => String -> m ()
trace = liftIO . hPutStrLn stderr trace = io . hPutStrLn stderr