Compose startupHook/logHook in the same order as other modules

I believe this was causing issues where a dynamically created
workspace would not properly trigger manageDocks logic.
This commit is contained in:
Peter Jones 2016-11-16 15:13:58 -07:00
parent 5790913eae
commit 217abc39a2
No known key found for this signature in database
GPG Key ID: 9DAFAA8D01941E49

View File

@ -146,8 +146,8 @@ instance ExtensionClass ProjectState where
-- | Add dynamic projects support to the given config.
dynamicProjects :: [Project] -> XConfig a -> XConfig a
dynamicProjects ps c =
c { startupHook = startupHook c <> dynamicProjectsStartupHook ps
, logHook = logHook c <> dynamicProjectsLogHook
c { startupHook = dynamicProjectsStartupHook ps <> startupHook c
, logHook = dynamicProjectsLogHook <> logHook c
}
--------------------------------------------------------------------------------