diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 00:38:27 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-08 00:38:27 +0100 |
commit | fb927daed709343c2823857230ac91bb9b37fe76 (patch) | |
tree | 5033088116818d425d0930d2fea8e92ad3b20200 /XMonad/Util/Dmenu.hs | |
parent | c2aff0e5ea8a51eb3a99f27f556a7411867442ef (diff) | |
download | XMonadContrib-fb927daed709343c2823857230ac91bb9b37fe76.tar.gz XMonadContrib-fb927daed709343c2823857230ac91bb9b37fe76.tar.xz XMonadContrib-fb927daed709343c2823857230ac91bb9b37fe76.zip |
Remove redundant imports
darcs-hash:20071207233827-a5988-9e41d51120499637f14d115f2cf1428edaf326bb.gz
Diffstat (limited to 'XMonad/Util/Dmenu.hs')
-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 |