From 7f9c87384e8cd7244eca3afcfa981043ca842a18 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Thu, 19 Feb 2009 05:20:40 +0100
Subject: Use doShift in my config

Ignore-this: 1f103d21bbceec8d48384f975f18eaec

darcs-hash:20090219042040-25a6b-5fe1645b8199acc5e659d491bf308eedacb686b1.gz
---
 XMonad/Config/Sjanssen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Config/Sjanssen.hs')

diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 4c10c49..3c0689b 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -35,7 +35,7 @@ sjanssenConfig = do
         , keys = \c -> mykeys sp c `M.union` keys defaultConfig c
         , layoutHook = modifiers layouts
         , logHook    = ewmhDesktopsLogHook
-        , manageHook = composeAll [className =? x --> doF (W.shift w)
+        , manageHook = composeAll [className =? x --> doShift w
                                     | (x, w) <- [ ("Firefox", "web")
                                                 , ("Ktorrent", "7")
                                                 , ("Amarokapp", "7")]]
-- 
cgit v1.2.3