diff options
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 |