From c55dea78d8cd2c748b35607966ffbb2625003fce Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 10 Jun 2007 22:38:40 +0200
Subject: Updates for Layout API change

darcs-hash:20070610203840-a5988-bcd9a2f4010d1981575cf24aa38ee1760d7976c2.gz
---
 Circle.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Circle.hs')

diff --git a/Circle.hs b/Circle.hs
index cf0bcb8..9e30c83 100644
--- 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 []
-- 
cgit v1.2.3