From 4b21bd7390a67251d5d4fe8a209171601706930c Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 20 Sep 2007 18:12:08 +0200 Subject: add Show instance to Layout darcs-hash:20070920161208-72aca-c7bbb3a9d7cd8f1445c89f1bf15d7302bd47896c --- Operations.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index 45a5c1d..1b642ed 100644 --- a/Operations.hs +++ b/Operations.hs @@ -351,14 +351,14 @@ instance Message IncMasterN -- simple fullscreen mode, just render all windows fullscreen. -- a plea for tuple sections: map . (,sc) -data Full a = Full +data Full a = Full deriving Show instance Layout Full a where doLayout Full sc (W.Stack f _ _) = return ([(f, sc)], Nothing) modifyLayout Full _ = return Nothing -- no changes -- -- The tiling mode of xmonad, and its operations. -- -data Tall a = Tall Int Rational Rational +data Tall a = Tall Int Rational Rational deriving Show instance Layout Tall a where doLayout (Tall nmaster _ frac) r = return . (\x->(x,Nothing)) . @@ -376,6 +376,8 @@ mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw) -- | Mirror a layout, compute its 90 degree rotated form. data Mirror a = forall l. Layout l a => Mirror (l a) +instance Show (Mirror a) where + show (Mirror l) = "Mirror "++show l instance Layout Mirror a where doLayout (Mirror l) r s = do (wrs, ml') <- doLayout l (mirrorRect r) s return (map (second mirrorRect) wrs, Mirror `fmap` ml') -- cgit v1.2.3