twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

Remove unnecessary call to XS.modify

Browse Source
This commit is contained in:
Peter Jones 2015-11-30 12:54:06 -07:00
parent 08c88abfb2
commit 60922e0cae
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/DynamicProjects.hs
View File

@ -157,7 +157,7 @@ dynamicProjectsLogHook = do
state <- XS.get state <- XS.get
unless (Just name == previousProject state) $ do unless (Just name == previousProject state) $ do
XS.modify $ \s -> s {previousProject = Just name} XS.put (state {previousProject = Just name})
activateProject . fromMaybe (defProject name) $ activateProject . fromMaybe (defProject name) $
Map.lookup name (projects state) Map.lookup name (projects state)