From 00bf13197996c7db9cc7bee07e423bef75ffdb93 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 15 Jul 2015 22:38:01 +0200
Subject: Tweaked list ranges for syntax

---
 .xmonad/xmonad.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to '.xmonad')

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 903eff4..c172147 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -66,7 +66,7 @@ defaultHost = Host { hName = "unkown"
                    , hWsp = show
                    , hCoWsp = const Nothing
                    , hKeysMod = const id
-                   , hScreens = [0..]
+                   , hScreens = [0,1..]
                    }
 
 hostFromName :: HostName -> Host
@@ -79,7 +79,7 @@ hostFromName h@("vali") = defaultHost { hName = h
                                       , hCoWsp = hCoWsp
                                       , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"])
                                                                                                                        ]
-                                      , hScreens = [1, 0, 2..]
+                                      , hScreens = [1, 0] ++ [2,3..]
                                       }
   where
     workspaceNames = Map.fromList [ (2, "web")
-- 
cgit v1.2.3