From bbdc5064c3e180d2e0d72003a3079e0b56ae5845 Mon Sep 17 00:00:00 2001 From: gwern0 Date: Mon, 12 Jul 2010 06:29:15 +0200 Subject: WindowGo: fmt & sp Ignore-this: dc733961f0308815fa2ec0afe118f9cb darcs-hash:20100712042915-f7719-489e041f7cb1f82e1cff7a75710b9ae9dfcca0a2.gz --- XMonad/Actions/WindowGo.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Actions') diff --git a/XMonad/Actions/WindowGo.hs b/XMonad/Actions/WindowGo.hs index 7033b3a..aa1cf69 100644 --- a/XMonad/Actions/WindowGo.hs +++ b/XMonad/Actions/WindowGo.hs @@ -160,11 +160,11 @@ raiseEditor = raiseVar getEditor {- | If the window is found the window is focused and the third argument is called otherwise, the first argument is called See 'raiseMaster' for an example. -} -raiseAndDo :: X () -> Query Bool -> (Window -> X ())-> X () +raiseAndDo :: X () -> Query Bool -> (Window -> X ()) -> X () raiseAndDo f qry after = ifWindow qry (afterRaise `mappend` raiseHook) f where afterRaise = ask >>= (>> idHook) . liftX . after -{- | If a window matching the second arugment is found, the window is focused and the third argument is called; +{- | If a window matching the second argument is found, the window is focused and the third argument is called; otherwise, the first argument is called. -} runOrRaiseAndDo :: String -> Query Bool -> (Window -> X ()) -> X () runOrRaiseAndDo = raiseAndDo . safeSpawnProg -- cgit v1.2.3