diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-03 13:09:55 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-03 13:10:09 +0200 |
| commit | 6ce8a6515eba6b979095efe30eaa7c978e16a27f (patch) | |
| tree | f8b0814312a9dba50e3a0b32f56486fd31415803 /lib | |
| parent | daadcaa31bf5bff6111a1d0cf7fee161b985cdab (diff) | |
| download | xmonad-conf-6ce8a6515eba6b979095efe30eaa7c978e16a27f.tar xmonad-conf-6ce8a6515eba6b979095efe30eaa7c978e16a27f.zip | |
Use screenWorkspaceStorage
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/DynamicPerScreenWorkspaces.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/DynamicPerScreenWorkspaces.hs b/lib/DynamicPerScreenWorkspaces.hs index c54e9a1..263174d 100644 --- a/lib/DynamicPerScreenWorkspaces.hs +++ b/lib/DynamicPerScreenWorkspaces.hs @@ -1,6 +1,7 @@ {-# LANGUAGE DeriveDataTypeable #-} -module DynamicPerScreenWorkspaces ( WorkspaceScreens +module DynamicPerScreenWorkspaces ( screenWorkspaceStorage + , WorkspaceScreens , DynamicWorkspaceConfig(..) , dynamicRescreenHook , create @@ -59,6 +60,7 @@ workspaceScreen :: DynamicWorkspaceConfig -> Int -> X ScreenId workspaceScreen conf i = do wset <- gets windowset d <- getStoreData + let defaultScreen = defaultWorkspaceScreen conf (length $ W.screens wset) i return $ case d of Just (DWSD wsscreens) -> do |