From 60390b11c08a3c5b3db5b36c9e6c7927ddbb54f1 Mon Sep 17 00:00:00 2001
From: longpoke <longpoke@gmail.com>
Date: Mon, 23 Jul 2012 23:28:07 +0200
Subject: strip newlines from dmenu's returns to be compatible with the newest
 version of dmenu

Ignore-this: 3b11a35125d0bc23b33e0b926562f85a

darcs-hash:20120723212807-276ff-b11b0108dd7067ad927a2920d9cb366dcd90d18b.gz
---
 XMonad/Util/Dmenu.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Util/Dmenu.hs')

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)
-- 
cgit v1.2.3