Put dmenu in X too

darcs-hash:20070503053727-a5988-b8529a73c0dc6ae32f9683c1b34784223d2c063c.gz

1 files changed, 2 insertions, 2 deletions

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)