From be8064767c77a02987f9eae7392f5d479ce9d5be Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 23 Dec 2009 07:45:58 +0100 Subject: Update all uses of forkProcess to xfork Ignore-this: 963a4ddf1d2f4096bbb8969b173cd0c1 darcs-hash:20091223064558-25a6b-b8cdfb14005aa9b60d9cbac7b257a6fc22b8eac4.gz --- XMonad/Util/NamedActions.hs | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'XMonad/Util/NamedActions.hs') 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 -- cgit v1.2.3