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/Hooks/DynamicLog.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 8993f4f..66c897f 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -40,6 +40,7 @@ module XMonad.Hooks.DynamicLog (
 -- Useful imports
 --
 import XMonad
+import XMonad.Layouts
 import Control.Monad.Reader
 import Data.Maybe ( isJust )
 import Data.List
@@ -63,7 +64,7 @@ import XMonad.Util.Run
 
 -- | An example xmonad config that spawns a new dzen toolbar and uses the default
 -- dynamic log output
-makeSimpleDzenConfig :: IO XConfig
+makeSimpleDzenConfig :: IO (XConfig (Choose Tall (Choose (Mirror Tall) Full)))
 makeSimpleDzenConfig = do
   h <- spawnPipe "dzen2"
   return defaultConfig
@@ -81,7 +82,7 @@ makeSimpleDzenConfig = do
 -- The intent is that the avove config file should provide a nice status
 -- bar with minimal effort.
 --
-dzen :: (XConfig -> IO ()) -> IO ()
+dzen :: (XConfig (Choose Tall (Choose (Mirror Tall) Full)) -> IO ()) -> IO ()
 dzen f = do
   h <- spawnPipe ("dzen2" ++ " " ++ flags)
   f $ defaultConfig
-- 
cgit v1.2.3