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 | 9f5290a33599230facde1153bb3708e313354c4d (patch) | |
| tree | 027bfbc9ef65400909966089c27bbb24d5cb0e1d /XMonad/ManageHook.hs | |
| parent | 204714ce5e44752f2b2115650839c846e8e96f32 (diff) | |
| download | metatile-9f5290a33599230facde1153bb3708e313354c4d.tar metatile-9f5290a33599230facde1153bb3708e313354c4d.zip | |
Haddock links
darcs-hash:20080601212515-1ef02-00edd6567c840d7fec8ee7ed085b3cd2655ad6e3
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) |