Use screenWorkspaceStorage

2011-09-03 13:09:55 +02:00 · 2011-09-03 13:09:55 +02:00 · 6ce8a6515e
commit 6ce8a6515e
parent daadcaa31b
2 changed files with 4 additions and 2 deletions
--- 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