Updates for Layout API change

2025-08-01 04:31:52 -07:00 · 2007-06-10 20:38:40 +00:00
parent 2d4e0b6e94
commit 5a54e27a76
3 changed files with 3 additions and 3 deletions
--- a/Circle.hs
+++ b/Circle.hs
@@ -5,7 +5,7 @@ import XMonad

 circle :: Layout
 circle = Layout { doLayout = circleLayout,
-                  modifyLayout = const Nothing }
+                  modifyLayout = return . const Nothing }

 circleLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)]
 circleLayout _ []     = return []