Fixed copied code part

1 files changed, 2 insertions, 1 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 4cc7f63..e6a581d 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -123,11 +123,12 @@ main = do
         , logHook = dynamicLogWithPP xmobarPP'
         , modMask = mod4Mask
         , keys = \conf -> hKeysMod host conf $ myKeys' conf
-        , workspaces = take (length numKeys) $ map (hWsp host) [1..]
+        , workspaces = take (length numKeys) $ map wsp [1..]
         , startupHook = assimilateKeychain >> (sequence autostart) >> (setDefaultCursor xC_left_ptr) >> banishScreen LowerRight >> return ()
         , normalBorderColor = "#202020"
         , focusedBorderColor = "white"
         }
+      wsp = hWsp host
       -- We can´t define per-host layout modifiers because we lack dependent types
       layout' = onWorkspace (wsp 1) (noBorders Full ||| withIM (1%5) (Title "Buddy List") (tabbedLayout tabbedBottomAlways)) $
                 onWorkspace (wsp 10) (noBorders Full) $