diff options
author | Malebria <malebria@riseup.net> | 2008-06-01 23:25:15 +0200 |
---|---|---|
committer | Malebria <malebria@riseup.net> | 2008-06-01 23:25:15 +0200 |
commit | b8c78fd7e6254e9ad93319250bda0a01f4bd3afc (patch) | |
tree | 027bfbc9ef65400909966089c27bbb24d5cb0e1d /XMonad/ManageHook.hs | |
parent | 9c16eff4895e5f94124fbb09dacf205506241b75 (diff) | |
download | xmonad-b8c78fd7e6254e9ad93319250bda0a01f4bd3afc.tar.gz xmonad-b8c78fd7e6254e9ad93319250bda0a01f4bd3afc.tar.xz xmonad-b8c78fd7e6254e9ad93319250bda0a01f4bd3afc.zip |
Haddock links
darcs-hash:20080601212515-1ef02-00edd6567c840d7fec8ee7ed085b3cd2655ad6e3.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 a0bbb4c..f2478b2 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -55,11 +55,11 @@ q =? x = fmap (== x) q infixr 3 <&&>, <||> --- | '&&' lifted to a Monad. +-- | '&&' lifted to a 'Monad'. (<&&>) :: Monad m => m Bool -> m Bool -> m Bool (<&&>) = liftM2 (&&) --- | '||' lifted to a Monad. +-- | '||' lifted to a 'Monad'. (<||>) :: Monad m => m Bool -> m Bool -> m Bool (<||>) = liftM2 (||) @@ -86,7 +86,7 @@ resource = appName className :: Query String className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io $ getClassHint d w) --- | A query that can return an arbitrary X property of type String, +-- | A query that can return an arbitrary X property of type 'String', -- identified by name. stringProperty :: String -> Query String stringProperty p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ getStringProperty d w p) |