Replace liftM with fmap

This commit is contained in:
slotThe
2019-10-08 10:45:27 +02:00
parent 0b26ddf489
commit e8da66e575
12 changed files with 15 additions and 15 deletions

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 $ liftM (insertString . f) getSelection
pasteString' f = join $ io $ fmap (insertString . f) getSelection
-- | Remove a character at the cursor position
deleteString :: Direction1D -> XP ()