twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-11 02:02:11 -07:00
Code Issues Packages Projects Releases Wiki Activity

use default modifyLayout in Circle.

Browse Source
This commit is contained in:
David Roundy
2007-09-23 11:52:57 +00:00
parent dcaae4f01b
commit 92834a2493
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Circle.hs
View File

@@ -35,7 +35,6 @@ data Circle a = Circle deriving ( Read, Show )
instance Layout Circle Window where instance Layout Circle Window where
doLayout Circle r s = do layout <- raiseFocus $ circleLayout r $ integrate s doLayout Circle r s = do layout <- raiseFocus $ circleLayout r $ integrate s
return (layout, Nothing) return (layout, Nothing)
modifyLayout Circle _ = return Nothing
circleLayout :: Rectangle -> [a] -> [(a, Rectangle)] circleLayout :: Rectangle -> [a] -> [(a, Rectangle)]
circleLayout _ [] = [] circleLayout _ [] = []