From 970ea52bb7d2379390b3acdb03a8e2fa2e923ccb Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 11 Nov 2007 01:56:29 +0100
Subject: changes to work with XConfig of kind * -> *.

darcs-hash:20071111005629-72aca-19e9e88bd2c31a9d5a3bbccbb9a569a8cd8fd2bc.gz
---
 XMonad/Config/Sjanssen.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 1e50df5..40aab8b 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 module XMonad.Config.Sjanssen (sjanssenConfig) where
 
 import XMonad
@@ -17,7 +18,6 @@ import qualified Data.Map as M
 import Graphics.X11
 import System.IO (hPutStrLn)
 
-sjanssenConfig :: IO XConfig
 sjanssenConfig = do
     xmobar <- spawnPipe "xmobar"
     return $ defaultConfig
@@ -31,7 +31,7 @@ sjanssenConfig = do
                 , ((modm, button2), (\w -> focus w >> windows W.swapMaster))
                 , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
         , keys = \c -> mykeys c `M.union` keys defaultConfig c
-        , layoutHook = Layout (smartBorders (tiled ||| Mirror tiled ||| Full ||| tabbed shrinkText defaultTConf))
+        , layoutHook = smartBorders (tiled ||| Mirror tiled ||| Full ||| tabbed shrinkText defaultTConf)
         }
  where
     tiled   = Tall 1 0.03 0.5
-- 
cgit v1.2.3