From eab4f05fed34c593ad4a9ee2af823eff722caab5 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sat, 24 Nov 2007 15:32:21 +0100 Subject: Typos and formatting darcs-hash:20071124143221-32816-2dacd78268c87501963b1bfd20652052fbe2c4e3.gz --- XMonad/ManageHook.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/ManageHook.hs') diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index 8fb61ee..a0d47c8 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -61,9 +61,9 @@ infixr 3 <&&>, <||> -- | Queries that return the window title, resource, or class. title, resource, className :: Query String -title = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName d w) -resource = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resName $ io $ getClassHint d w) -className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io $ getClassHint d w) +title = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName d w) +resource = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resName $ io $ getClassHint d w) +className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io $ getClassHint d w) -- | Modify the 'WindowSet' with a pure function. doF :: (WindowSet -> WindowSet) -> ManageHook -- cgit v1.2.3