diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-24 15:32:21 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-24 15:32:21 +0100 |
| commit | eab4f05fed34c593ad4a9ee2af823eff722caab5 (patch) | |
| tree | 46e7c35145c88513e46ce3fa9334e23e7443716a /XMonad/ManageHook.hs | |
| parent | 4178ad0d67e01d838afe40a279e5595f6bd49459 (diff) | |
| download | xmonad-eab4f05fed34c593ad4a9ee2af823eff722caab5.tar.gz xmonad-eab4f05fed34c593ad4a9ee2af823eff722caab5.tar.xz xmonad-eab4f05fed34c593ad4a9ee2af823eff722caab5.zip | |
Typos and formatting
darcs-hash:20071124143221-32816-2dacd78268c87501963b1bfd20652052fbe2c4e3.gz
Diffstat (limited to 'XMonad/ManageHook.hs')
| -rw-r--r-- | XMonad/ManageHook.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |