diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-09 07:42:14 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-09 07:42:14 +0100 |
| commit | 4bc4fd70b267856bd31019f708581fe71657acb3 (patch) | |
| tree | a5bb278b6a76405e8ff9a0f885be915edd9e573d | |
| parent | 2fda3e8b4fcd2398aade1b83b0c59df44663f46a (diff) | |
| download | xmonad-4bc4fd70b267856bd31019f708581fe71657acb3.tar.gz xmonad-4bc4fd70b267856bd31019f708581fe71657acb3.tar.xz xmonad-4bc4fd70b267856bd31019f708581fe71657acb3.zip | |
Generalize several functions to MonadIO
darcs-hash:20071109064214-a5988-9d6f69bc6314fd4e4a58edff8442715a5b016400.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Core.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 56700c0..2a6a715 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -258,8 +258,8 @@ catchIO :: IO () -> X () catchIO f = liftIO (f `catch` \e -> hPrint stderr e >> hFlush stderr) -- | spawn. Launch an external application -spawn :: String -> X () -spawn x = io $ do +spawn :: MonadIO m => String -> m () +spawn x = liftIO $ do pid <- forkProcess $ do forkProcess (createSession >> executeFile "/bin/sh" False ["-c", x] Nothing) exitWith ExitSuccess @@ -291,5 +291,5 @@ whenX a f = a >>= \b -> when b f -- | A 'trace' for the X monad. Logs a string to stderr. The result may -- be found in your .xsession-errors file -trace :: String -> X () -trace msg = io $! do hPutStrLn stderr msg; hFlush stderr +trace :: MonadIO m => String -> m () +trace msg = liftIO $ do hPutStrLn stderr msg; hFlush stderr |