diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Util/XSelection.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs index fdea2cf..aa6624e 100644 --- a/XMonad/Util/XSelection.hs +++ b/XMonad/Util/XSelection.hs @@ -170,5 +170,5 @@ shell using 'safeSpawn' from "XMonad.Util.Run"; see its documentation for more details on the advantages and disadvantages of using safeSpawn. -} promptSelection, safePromptSelection, unsafePromptSelection :: String -> X () promptSelection = unsafePromptSelection -safePromptSelection app = join $ io $ liftM (safeSpawn app) (getSelection) +safePromptSelection app = join $ io $ liftM (safeSpawn app) getSelection unsafePromptSelection app = join $ io $ liftM unsafeSpawn $ fmap (\x -> app ++ " " ++ x) getSelection |