Update all uses of forkProcess to xfork

Ignore-this: 963a4ddf1d2f4096bbb8969b173cd0c1

darcs-hash:20091223064558-25a6b-b8cdfb14005aa9b60d9cbac7b257a6fc22b8eac4.gz

1 files changed, 3 insertions, 10 deletions

diff --git a/XMonad/Util/NamedActions.hs b/XMonad/Util/NamedActions.hs
index 70544e4..6ae7552 100644
--- a/XMonad/Util/NamedActions.hs
+++ b/XMonad/Util/NamedActions.hs
@@ -42,15 +42,8 @@ module XMonad.Util.NamedActions (
 
 
 import XMonad.Actions.Submap(submap)
-import XMonad(KeySym, KeyMask, X, Layout, Message,
-              XConfig(keys, layoutHook, modMask, terminal, workspaces, XConfig),
-              io, spawn, whenJust, ChangeLayout(NextLayout), IncMasterN(..),
-              Resize(..), kill, refresh, screenWorkspace, sendMessage, setLayout,
-              windows, withFocused, controlMask, mod1Mask, mod2Mask, mod3Mask,
-              mod4Mask, mod5Mask, shiftMask, xK_1, xK_9, xK_Return, xK_Tab, xK_c,
-              xK_comma, xK_e, xK_h, xK_j, xK_k, xK_l, xK_m, xK_n, xK_p,
-              xK_period, xK_q, xK_r, xK_space, xK_t, xK_w, keysymToString)
-import System.Posix.Process(executeFile, forkProcess)
+import XMonad
+import System.Posix.Process(executeFile)
 import Control.Arrow(Arrow((&&&), second, (***)))
 import Data.Bits(Bits((.&.), complement, (.|.)))
 import Data.Function((.), const, ($), flip, id)
@@ -212,7 +205,7 @@ showKm keybindings = padding $ do
 -- | An action to send to 'addDescrKeys' for showing the keybindings. See also 'showKm' and 'showKmSimple'
 xMessage :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
 xMessage x = addName "Show Keybindings" $ io $ do
-    forkProcess $ executeFile "xmessage" True ["-default", "okay", unlines $ showKm x] Nothing
+    xfork $ executeFile "xmessage" True ["-default", "okay", unlines $ showKm x] Nothing
     return ()
 
 -- | Merge the supplied keys with 'defaultKeysDescr', also adding a keybinding