From 72e2e1668bb28a601ceaccf84660c4f23faa8452 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 3 May 2007 07:37:27 +0200
Subject: Put dmenu in X too

darcs-hash:20070503053727-a5988-b8529a73c0dc6ae32f9683c1b34784223d2c063c.gz
---
 Dmenu.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Dmenu.hs')

diff --git a/Dmenu.hs b/Dmenu.hs
index b3434ce..96fbd5d 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)
 
-- 
cgit v1.2.3