From 8f008a3c52e156e07dd35edd1e69651a6f17c648 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 4 Jul 2015 14:34:57 +0200
Subject: Fixed copied code part

---
 .xmonad/xmonad.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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