diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-11-08 19:28:58 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-11-08 19:28:58 +0100 |
| commit | 023f5c13a2036f58f756f3b9c51163d55d5d70c3 (patch) | |
| tree | f243a7e564637e05b007139bfe00b127a4fe422d /XMonad/Util | |
| parent | 3db6df450cb441b16bfb50959d42dfcd2a859999 (diff) | |
| download | XMonadContrib-023f5c13a2036f58f756f3b9c51163d55d5d70c3.tar.gz XMonadContrib-023f5c13a2036f58f756f3b9c51163d55d5d70c3.tar.xz XMonadContrib-023f5c13a2036f58f756f3b9c51163d55d5d70c3.zip | |
X.U.ExtensibleState: style
Ignore-this: f189da75ad2c57ae9cca48eaf69a6bad
darcs-hash:20091108182858-25a6b-3e5fad187245f37d07237f357c04620dee9fbf9d.gz
Diffstat (limited to 'XMonad/Util')
| -rw-r--r-- | XMonad/Util/ExtensibleState.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |