From 60922e0cae667d9ea19cfdee108ad779e08117e4 Mon Sep 17 00:00:00 2001
From: Peter Jones <pjones@pmade.com>
Date: Mon, 30 Nov 2015 12:54:06 -0700
Subject: [PATCH] Remove unnecessary call to XS.modify
---
XMonad/Actions/DynamicProjects.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/XMonad/Actions/DynamicProjects.hs b/XMonad/Actions/DynamicProjects.hs
index 45e4cb5f..0bdcee2e 100644
--- a/XMonad/Actions/DynamicProjects.hs
+++ b/XMonad/Actions/DynamicProjects.hs
@@ -157,7 +157,7 @@ dynamicProjectsLogHook = do
state <- XS.get
unless (Just name == previousProject state) $ do
- XS.modify $ \s -> s {previousProject = Just name}
+ XS.put (state {previousProject = Just name})
activateProject . fromMaybe (defProject name) $
Map.lookup name (projects state)