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

Replace 'join . fmap' with =<<

Browse Source
This commit is contained in:
slotThe
2019-10-08 11:19:09 +02:00
parent 22aebcb26d
commit 273ae32438
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Prompt.hs
View File

@@ -1204,7 +1204,7 @@ pasteString = pasteString' id
-- | A variant of 'pasteString' which allows modifying the X selection before
-- pasting.
pasteString' :: (String -> String) -> XP ()
pasteString' f = join $ io $ fmap (insertString . f) getSelection
pasteString' f = insertString . f =<< getSelection
-- | Remove a character at the cursor position
deleteString :: Direction1D -> XP ()