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

Fix tiny markup typo

Browse Source
This commit is contained in:
Ingo Blechschmidt
2015-12-14 16:24:16 +01:00
parent b9b4f4af07
commit fa3e774a65
1 changed files with 3 additions and 3 deletions
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