From 08670b37adfb17d62c7f261e50ea8fb999f70661 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@galois.com>
Date: Thu, 18 Oct 2007 08:37:49 +0200
Subject: TilePrime.hs: Give a description that distinguishs between
 horizontal/vertical

darcs-hash:20071018063749-b49f3-3cce3ff7340fdced2f0c27264ac1df0effa6b627.gz
---
 TilePrime.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'TilePrime.hs')

diff --git a/TilePrime.hs b/TilePrime.hs
index 8b1e693..60a35a5 100644
--- a/TilePrime.hs
+++ b/TilePrime.hs
@@ -50,7 +50,8 @@ data TilePrime a = TilePrime
                          } deriving (Show, Read)
 
 instance LayoutClass TilePrime Window where
-  description _ = "TilePrime"
+  description c | flipped c = "TilePrime Horizontal"
+                | otherwise = "TilePrime Vertical"
 
   pureMessage c m = fmap resize (fromMessage m) `mplus`
                     fmap incmastern (fromMessage m)
-- 
cgit v1.2.3