From 9ce28b7c28444b881bd7c195b4c2ace05950685e Mon Sep 17 00:00:00 2001 From: gwern0 Date: Sat, 20 Dec 2008 16:33:02 +0100 Subject: hlintify XUtils, XSelection, Search, WindowGo Ignore-this: 7e877484e3cd8954b74232ea83180fa9 darcs-hash:20081220153302-f7719-750549ea12a24a7364f4be71894720700f98f6a7.gz --- XMonad/Actions/WindowGo.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Actions/WindowGo.hs') diff --git a/XMonad/Actions/WindowGo.hs b/XMonad/Actions/WindowGo.hs index 81967a5..e33f25a 100644 --- a/XMonad/Actions/WindowGo.hs +++ b/XMonad/Actions/WindowGo.hs @@ -62,7 +62,7 @@ For detailed instructions on editing your key bindings, see -- | 'action' is an executable to be run via 'spawn' (of "XMonad.Core") if the Window cannot be found. -- Presumably this executable is the same one that you were looking for. runOrRaise :: String -> Query Bool -> X () -runOrRaise action = raiseMaybe $ spawn action +runOrRaise = raiseMaybe . spawn -- | See 'raiseMaybe'. If the Window can't be found, quietly give up and do nothing. raise :: Query Bool -> X () @@ -103,7 +103,7 @@ raiseMaybe f thatUserQuery = withWindowSet $ \s -> do -- | See 'runOrRaise' and 'raiseNextMaybe'. Version that allows cycling through matches. runOrRaiseNext :: String -> Query Bool -> X () -runOrRaiseNext action = raiseNextMaybe $ spawn action +runOrRaiseNext = raiseNextMaybe . spawn -- | See 'raise' and 'raiseNextMaybe'. Version that allows cycling through matches. raiseNext :: Query Bool -> X () @@ -154,7 +154,7 @@ raiseAndDo raisef thatUserQuery afterRaise = withWindowSet $ \s -> do {- | if the window is found the window is focused and the third argument is called otherwise, raisef is called -} runOrRaiseAndDo :: String -> Query Bool -> (Window -> X ()) -> X () -runOrRaiseAndDo run query afterRaise = raiseAndDo (spawn run) query afterRaise +runOrRaiseAndDo = raiseAndDo . spawn {- | if the window is found the window is focused and set to master otherwise, the first argument is called -- cgit v1.2.3