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 +-
 Spiral.hs  | 2 +-
 TwoPane.hs | 2 +-
 3 files changed, 3 insertions(+), 3 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 []
diff --git a/Spiral.hs b/Spiral.hs
index c17f2cd..6701bb6 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -33,7 +33,7 @@ blend scale ratios = zipWith (+) ratios scaleFactors
 
 spiral :: Rational -> Layout
 spiral scale = Layout { doLayout = fibLayout,
-                        modifyLayout = \m -> fmap resize $ fromMessage m }
+                        modifyLayout = \m -> return $ fmap resize $ fromMessage m }
     where
       fibLayout sc ws = return $ zip ws rects
           where ratios = blend scale . reverse . take (length ws - 1) . mkRatios $ tail fibs
diff --git a/TwoPane.hs b/TwoPane.hs
index d70f49f..18abdf6 100644
--- a/TwoPane.hs
+++ b/TwoPane.hs
@@ -24,7 +24,7 @@ twoPane delta split = Layout { doLayout = arrange, modifyLayout = message }
     -- there are one or zero windows
     arrange rect ws         = return . map (\w -> (w, rect)) $ ws
 
-    message x = case fromMessage x of
+    message x = return $ case fromMessage x of
                     Just Shrink -> Just (twoPane delta (split - delta))
                     Just Expand -> Just (twoPane delta (split + delta))
                     _           -> Nothing
-- 
cgit v1.2.3