From 6ce8a6515eba6b979095efe30eaa7c978e16a27f Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sat, 3 Sep 2011 13:09:55 +0200
Subject: Use screenWorkspaceStorage

---
 lib/DynamicPerScreenWorkspaces.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib')

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
-- 
cgit v1.2.3