From 790fd3ad02aa70296ee458a02193154c899f6886 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Tue, 16 Nov 2010 00:26:54 +0100
Subject: Compatibility with mtl-1 and mtl-2

Ignore-this: 4fb7f279365992fe9e73388b0f4001ac

darcs-hash:20101115232654-1499c-411b53c153acbcbf791150e3923a754abe530202.gz
---
 XMonad/Layout/HintedGrid.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Layout/HintedGrid.hs')

diff --git a/XMonad/Layout/HintedGrid.hs b/XMonad/Layout/HintedGrid.hs
index 0d9e17d..e7e09d5 100644
--- a/XMonad/Layout/HintedGrid.hs
+++ b/XMonad/Layout/HintedGrid.hs
@@ -65,7 +65,7 @@ instance LayoutClass Grid Window where
     doLayout (GridRatio d m) r w = flip (,) Nothing . arrange d m r (integrate w)
 
 replicateS :: Int -> (a -> (b, a)) -> a -> ([b], a)
-replicateS n = runState . replicateM n . State
+replicateS n f = runState . replicateM n $ do (a,s) <- gets f; put s; return a
 
 doColumn :: Dimension -> Dimension -> Dimension -> [(D -> D)] -> [D]
 doColumn width height k adjs =
-- 
cgit v1.2.3