From 5dd3a069ecc5e8f03fb7089cf273e489fbdef3cf Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 07:18:58 +0200
Subject: LayoutSelection: describe the active layout only

darcs-hash:20070928051858-a5988-bebb34f737f554e027dc31ab5305c69189b897ba
---
 Operations.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Operations.hs b/Operations.hs
index ab585c7..ec93cca 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -386,6 +386,9 @@ instance ReadableSomeLayout a => Layout LayoutSelection a where
               return $ (\l' -> LayoutSelection (l':ls)) `fmap` ml'
     -- Unless there is no layout...
     handleMessage (LayoutSelection []) _ = return Nothing
+
+    description (LayoutSelection (x:_)) = description x
+    description _                       = "default"
 --
 -- Builtin layout algorithms:
 --
-- 
cgit v1.2.3