diff options
author | daniel <daniel@wagner-home.com> | 2009-11-14 03:36:16 +0100 |
---|---|---|
committer | daniel <daniel@wagner-home.com> | 2009-11-14 03:36:16 +0100 |
commit | af1ff15bc43bd1ddcae94237bce560c1251a569d (patch) | |
tree | 0abfea358c31302b53d4085756a347e47609628e /XMonad/Util/Dmenu.hs | |
parent | 9a01f2b662dc29820c80ef65a54ae2d8afa2e7ff (diff) | |
download | XMonadContrib-af1ff15bc43bd1ddcae94237bce560c1251a569d.tar.gz XMonadContrib-af1ff15bc43bd1ddcae94237bce560c1251a569d.tar.xz XMonadContrib-af1ff15bc43bd1ddcae94237bce560c1251a569d.zip |
generalize IO actions to MonadIO m
Ignore-this: 2c801a27b0ffee34a2f0daca3778613a
This should not cause any working configs to stop working, because IO is an instance of MonadIO, and because complete configs will pin down the type of the call to IO. Note that XMonad.Config.Arossato is not a complete config, and so it needed some tweaks; with a main function, this should not be a problem.
darcs-hash:20091114023616-c98ca-0a233cc53c41986845db4300530ec4f9e4d52a37.gz
Diffstat (limited to 'XMonad/Util/Dmenu.hs')
-rw-r--r-- | XMonad/Util/Dmenu.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Util/Dmenu.hs b/XMonad/Util/Dmenu.hs index fffba07..162e644 100644 --- a/XMonad/Util/Dmenu.hs +++ b/XMonad/Util/Dmenu.hs @@ -37,13 +37,13 @@ import XMonad.Util.Run dmenuXinerama :: [String] -> X String dmenuXinerama opts = do curscreen <- (fromIntegral . W.screen . W.current) `fmap` gets windowset :: X Int - io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts) + runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts) dmenu :: [String] -> X String dmenu opts = menu "dmenu" opts menu :: String -> [String] -> X String -menu menuCmd opts = io $ runProcessWithInput menuCmd [] (unlines opts) +menu menuCmd opts = runProcessWithInput menuCmd [] (unlines opts) menuMap :: String -> M.Map String a -> X (Maybe a) menuMap menuCmd selectionMap = do |