twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #25 from iblech/patch-1

Browse Source 
Fix tiny markup typo
This commit is contained in:
Brent Yorgey 2015-12-18 14:11:11 -06:00
commit cc7ddcfa60
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Prompt/Input.hs
View File

@ -49,12 +49,12 @@ import XMonad.Prompt
-- @fireEmployee@ action, like so: -- @fireEmployee@ action, like so:
-- --
-- > firingPrompt :: X () -- > firingPrompt :: X ()
-- > firingPrompt = inputPrompt defaultXPConfig \"Fire\" ?+ fireEmployee -- > firingPrompt = inputPrompt defaultXPConfig "Fire" ?+ fireEmployee
-- --
-- If @employees@ contains a list of all his employees, he could also -- If @employees@ contains a list of all his employees, he could also
-- create an autocompleting version, like this: -- create an autocompleting version, like this:
-- --
-- > firingPrompt' = inputPromptWithCompl defaultXPConfig \"Fire\" -- > firingPrompt' = inputPromptWithCompl defaultXPConfig "Fire"
-- > (mkComplFunFromList employees) ?+ fireEmployee -- > (mkComplFunFromList employees) ?+ fireEmployee
-- --
-- Now all he has to do is add a keybinding to @firingPrompt@ (or -- Now all he has to do is add a keybinding to @firingPrompt@ (or
@ -112,4 +112,4 @@ infixr 1 ?+
-- with input prompts. If you find a more general use for it and -- with input prompts. If you find a more general use for it and
-- want to move it to a different module, be my guest. -- want to move it to a different module, be my guest.
(?+) :: (Monad m) => m (Maybe a) -> (a -> m ()) -> m () (?+) :: (Monad m) => m (Maybe a) -> (a -> m ()) -> m ()
x ?+ k = x >>= maybe (return ()) k x ?+ k = x >>= maybe (return ()) k