diff options
Diffstat (limited to '')
-rw-r--r-- | TilePrime.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) |