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/Arossato.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs
index 5885734..ccb0096 100644
--- a/XMonad/Config/Arossato.hs
+++ b/XMonad/Config/Arossato.hs
@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  XMonad.Config.Arossato
@@ -52,7 +53,7 @@ myTabConfig = defaultTConf {
 -- 
 -- Key bindings:
 -- I want to remove some of the default key bindings, such as those to exit XMonad
-defaultKeys :: XConfig -> M.Map (KeyMask, KeySym) (X ())
+defaultKeys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
 defaultKeys x = M.fromList $
     -- launching and killing programs
     [ ((modMask x .|. shiftMask, xK_Return), spawn "xterm") -- %! Launch an xterm
@@ -105,7 +106,7 @@ defaultKeys x = M.fromList $
     ++ mykeys x
 
 -- These are my personal key bindings
-mykeys :: XConfig -> [((KeyMask, KeySym), (X ()))]
+mykeys :: XConfig Layout -> [((KeyMask, KeySym), (X ()))]
 mykeys x = 
     [ ((modMask x                 , xK_F12   ), xmonadPrompt myXPConfig               )
     , ((modMask x                 , xK_F3    ), shellPrompt  myXPConfig               )
@@ -126,7 +127,6 @@ mykeys x =
     ]
 
 
-arossatoConfig :: XConfig
 arossatoConfig = defaultConfig
          { borderWidth        = 1
          , workspaces         = map show [1 .. 9 :: Int]
-- 
cgit v1.2.3