diff options
| author | longpoke <longpoke@gmail.com> | 2012-07-23 23:28:07 +0200 |
|---|---|---|
| committer | longpoke <longpoke@gmail.com> | 2012-07-23 23:28:07 +0200 |
| commit | 60390b11c08a3c5b3db5b36c9e6c7927ddbb54f1 (patch) | |
| tree | c475ac060a522cec786f7d838873fd8d4b68d4d2 | |
| parent | 123ed51bf5c710d638bbe6a2d9b875950f625386 (diff) | |
| download | XMonadContrib-60390b11c08a3c5b3db5b36c9e6c7927ddbb54f1.tar.gz XMonadContrib-60390b11c08a3c5b3db5b36c9e6c7927ddbb54f1.tar.xz XMonadContrib-60390b11c08a3c5b3db5b36c9e6c7927ddbb54f1.zip | |
strip newlines from dmenu's returns to be compatible with the newest version of dmenu
Ignore-this: 3b11a35125d0bc23b33e0b926562f85a
darcs-hash:20120723212807-276ff-b11b0108dd7067ad927a2920d9cb366dcd90d18b.gz
| -rw-r--r-- | XMonad/Util/Dmenu.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Util/Dmenu.hs b/XMonad/Util/Dmenu.hs index 2af55a7..79e4774 100644 --- a/XMonad/Util/Dmenu.hs +++ b/XMonad/Util/Dmenu.hs @@ -55,7 +55,7 @@ menu menuCmd opts = menuArgs menuCmd [] opts -- | Like 'menu' but also takes a list of command line arguments. menuArgs :: String -> [String] -> [String] -> X String -menuArgs menuCmd args opts = runProcessWithInput menuCmd args (unlines opts) +menuArgs menuCmd args opts = fmap (filter (/='\n')) $ runProcessWithInput menuCmd args (unlines opts) -- | Like 'dmenuMap' but also takes the command to run. menuMap :: String -> M.Map String a -> X (Maybe a) |