From 5129e2f96346deef82f0728513a65903a0886932 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 3 May 2007 05:37:27 +0000
Subject: [PATCH] Put dmenu in X too

---
 Dmenu.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Dmenu.hs b/Dmenu.hs
index b3434ce9..96fbd5d6 100644
--- a/Dmenu.hs
+++ b/Dmenu.hs
@@ -27,6 +27,6 @@ dmenuXinerama opts = do
     let curscreen = fromIntegral $ fromMaybe 0 (M.lookup (W.current ws) (W.ws2screen ws)) :: Int
     io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts)
 
-dmenu :: [String] -> IO String
-dmenu opts = runProcessWithInput "dmenu" [] (unlines opts)
+dmenu :: [String] -> X String
+dmenu opts = io $ runProcessWithInput "dmenu" [] (unlines opts)