diff options
| author | David Roundy <droundy@darcs.net> | 2007-11-11 01:56:29 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-11-11 01:56:29 +0100 |
| commit | 970ea52bb7d2379390b3acdb03a8e2fa2e923ccb (patch) | |
| tree | 004bac35e23c75ad0e5bdff4b0f65a1c076644c4 /XMonad/Hooks | |
| parent | 3e6325d478daa289c2247cc317f1e9ac87fbc7aa (diff) | |
| download | XMonadContrib-970ea52bb7d2379390b3acdb03a8e2fa2e923ccb.tar.gz XMonadContrib-970ea52bb7d2379390b3acdb03a8e2fa2e923ccb.tar.xz XMonadContrib-970ea52bb7d2379390b3acdb03a8e2fa2e923ccb.zip | |
changes to work with XConfig of kind * -> *.
darcs-hash:20071111005629-72aca-19e9e88bd2c31a9d5a3bbccbb9a569a8cd8fd2bc.gz
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |