diff options
Diffstat (limited to 'lib/DynamicPerScreenWorkspaces.hs')
| -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 |