From f69c334a8cd5c7ae3b132c95db95b6e9ccd68b16 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 26 Jan 2008 19:59:36 +0100
Subject: ManageDocks: add emptyLayout definition for supporting the new
 decoration framework

darcs-hash:20080126185936-32816-eaeed6cf2631348fbe1640c778397c6883dae174.gz
---
 XMonad/Hooks/ManageDocks.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'XMonad/Hooks/ManageDocks.hs')

diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index 69b7e16..475499a 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -142,6 +142,9 @@ instance LayoutClass l a => LayoutClass (AvoidStruts l) a where
                          return (AvoidStruts b `fmap` ml')
     description (AvoidStruts _ l) = description l
 
+    emptyLayout (AvoidStruts b l) r = do (wrs,ml) <- emptyLayout l r
+                                         return (wrs, AvoidStruts b `fmap` ml)
+
 data Side = L | R | T | B
 
 type Strut = (Side, CLong, CLong, CLong)
-- 
cgit v1.2.3