From 24be430889bace15e5880e3fbffba343f6749e24 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 28 Jan 2008 01:18:34 +0100
Subject: Make Mirror implement emptyLayout

darcs-hash:20080128001834-32816-0216ea86f243e76d5918ea15c7d2306496878b7a.gz
---
 XMonad/Layout.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'XMonad')

diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs
index 981541c..94051b2 100644
--- a/XMonad/Layout.hs
+++ b/XMonad/Layout.hs
@@ -136,6 +136,8 @@ instance LayoutClass l a => LayoutClass (Mirror l) a where
     doLayout (Mirror l) r s = (map (second mirrorRect) *** fmap Mirror)
                                 `fmap` doLayout l (mirrorRect r) s
     handleMessage (Mirror l) = fmap (fmap Mirror) . handleMessage l
+    emptyLayout (Mirror l) r = (map (second mirrorRect) *** fmap Mirror)
+                                  `fmap` emptyLayout l (mirrorRect r)
     description (Mirror l) = "Mirror "++ description l
 
 -- | tile.  Compute the positions for windows using the default 2 pane tiling algorithm.
-- 
cgit v1.2.3