From 5c2aa04175b0247a257ac6fb246eb2e16c99b27a Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Fri, 11 Dec 2009 12:42:18 +0000
Subject: [PATCH] X.L.MouseResizableTile: change description for mirrored
 variant

The description for mirrored MouseResizableTile is now "Mirror
MouseResizableTile", to follow the standard of other layouts that can be
mirrored using the Mirror modifier.
---
 XMonad/Layout/MouseResizableTile.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/XMonad/Layout/MouseResizableTile.hs b/XMonad/Layout/MouseResizableTile.hs
index 8c0b7f85..3a3381f6 100644
--- a/XMonad/Layout/MouseResizableTile.hs
+++ b/XMonad/Layout/MouseResizableTile.hs
@@ -144,7 +144,8 @@ instance LayoutClass MouseResizableTile a where
         where releaseResources = mapM_ deleteDragger $ draggers state
     handleMessage _ _ = return Nothing
 
-    description _ = "MouseResizableTile"
+    description state = mirror "MouseResizableTile"
+        where mirror = if isMirrored state then ("Mirror " ++) else id
 
 adjustForMirror :: Bool -> DraggerWithRect -> DraggerWithRect
 adjustForMirror False dragger = dragger