From fb927daed709343c2823857230ac91bb9b37fe76 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 8 Dec 2007 00:38:27 +0100
Subject: Remove redundant imports

darcs-hash:20071207233827-a5988-9e41d51120499637f14d115f2cf1428edaf326bb.gz
---
 XMonad/Util/Dmenu.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'XMonad/Util/Dmenu.hs')

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
-- 
cgit v1.2.3