diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Util/Dmenu.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Util/Dmenu.hs b/XMonad/Util/Dmenu.hs index 8eeb0d9..ea91f17 100644 --- a/XMonad/Util/Dmenu.hs +++ b/XMonad/Util/Dmenu.hs @@ -23,7 +23,6 @@ module XMonad.Util.Dmenu ( import XMonad import qualified XMonad.StackSet as W import qualified Data.Map as M -import Control.Monad.State import XMonad.Util.Run -- $usage @@ -37,7 +36,7 @@ import XMonad.Util.Run -- <http://www.jcreigh.com/dmenu/dmenu-3.2-xinerama.patch> dmenuXinerama :: [String] -> X String dmenuXinerama opts = do - curscreen <- (fromIntegral . W.screen . W.current) `liftM` gets windowset :: X Int + curscreen <- (fromIntegral . W.screen . W.current) `fmap` gets windowset :: X Int io $ runProcessWithInput "dmenu" ["-xs", show (curscreen+1)] (unlines opts) dmenu :: [String] -> X String |