From e4e6e419a76049090a8dbb994b8943f97ce4f20f Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 23 Sep 2007 13:52:57 +0200
Subject: use default modifyLayout in Circle.
darcs-hash:20070923115257-72aca-be97a7f126413d8e146299320dbaecb7601aedb9.gz
---
Circle.hs | 1 -
1 file changed, 1 deletion(-)
diff --git a/Circle.hs b/Circle.hs
index a5a5727..292e7a4 100644
--- a/Circle.hs
+++ b/Circle.hs
@@ -35,7 +35,6 @@ data Circle a = Circle deriving ( Read, Show )
instance Layout Circle Window where
doLayout Circle r s = do layout <- raiseFocus $ circleLayout r $ integrate s
return (layout, Nothing)
- modifyLayout Circle _ = return Nothing
circleLayout :: Rectangle -> [a] -> [(a, Rectangle)]
circleLayout _ [] = []
--
cgit v1.2.3