use default modifyLayout in Circle.

darcs-hash:20070923115257-72aca-be97a7f126413d8e146299320dbaecb7601aedb9.gz

1 files changed, 0 insertions, 1 deletions

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 _ []     = []