1 files changed, 5 insertions, 3 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 569d428..287247d 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -86,9 +86,11 @@ hostFromName h@("vali") = defaultHost { hName = h
                                   ]
     hWsp = wspFromMap workspaceNames
     hCoWsp = coWspFromMap workspaceNames
-    hScreenPerm 1 = 2
-    hScreenPerm 2 = 1
-    hScreenPerm x = x
+    hScreenPerm = map hPrim
+        where
+          hPrim 1 = 2
+          hPrim 2 = 1
+          hPrim x = x
 hostFromName _ = defaultHost
 
 wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of