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