Use screenWorkspaceStorage

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

xmonad.hs

@@ -164,7 +164,7 @@ myManageHook = composeAll
 --myUnmanageHook = moveUp1
 
 
-myLayoutHook = processWorkspaceManager $ manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled)
+myLayoutHook = screenWorkspaceStorage $ processWorkspaceManager $ manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled)
   where
     -- default tiling algorithm partitions the screen into two panes
     tiled   = ResizableTall nmaster delta ratio []