diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2010-11-16 00:26:54 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2010-11-16 00:26:54 +0100 |
| commit | 790fd3ad02aa70296ee458a02193154c899f6886 (patch) | |
| tree | b3186ebf259a64f5c691b4fa8391ea2e48300127 /XMonad/Layout | |
| parent | f0088e4fa88da36624e3b8fd11b8e95eebfc9fe3 (diff) | |
| download | XMonadContrib-790fd3ad02aa70296ee458a02193154c899f6886.tar.gz XMonadContrib-790fd3ad02aa70296ee458a02193154c899f6886.tar.xz XMonadContrib-790fd3ad02aa70296ee458a02193154c899f6886.zip | |
Compatibility with mtl-1 and mtl-2
Ignore-this: 4fb7f279365992fe9e73388b0f4001ac
darcs-hash:20101115232654-1499c-411b53c153acbcbf791150e3923a754abe530202.gz
Diffstat (limited to 'XMonad/Layout')
| -rw-r--r-- | XMonad/Layout/HintedGrid.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |