From 023f5c13a2036f58f756f3b9c51163d55d5d70c3 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Sun, 8 Nov 2009 19:28:58 +0100
Subject: X.U.ExtensibleState: style

Ignore-this: f189da75ad2c57ae9cca48eaf69a6bad

darcs-hash:20091108182858-25a6b-3e5fad187245f37d07237f357c04620dee9fbf9d.gz
---
 XMonad/Util/ExtensibleState.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/ExtensibleState.hs b/XMonad/Util/ExtensibleState.hs
index 43da23b..2c4db86 100644
--- a/XMonad/Util/ExtensibleState.hs
+++ b/XMonad/Util/ExtensibleState.hs
@@ -21,7 +21,6 @@ module XMonad.Util.ExtensibleState (
                               , getState
                               ) where
 
-import Control.Applicative
 import Data.Typeable (typeOf,Typeable,cast)
 import qualified Data.Map as M
 import XMonad.Core
@@ -77,7 +76,7 @@ modifyStateExts f = modify $ \st -> st { extensibleState = f (extensibleState st
 -- | Apply a function to a stored value of the matching type or the initial value if there
 -- is none.
 modifyState :: ExtensionClass a => (a -> a) -> X ()
-modifyState f = putState =<< f <$> getState
+modifyState f = putState . f =<< getState
 
 -- | Add a value to the extensible state field. A previously stored value with the same
 -- type will be overwritten. (More precisely: A value whose string representation of its type
-- 
cgit v1.2.3