1 files changed, 1 insertions, 1 deletions
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 []