Split X.L.Groups.Examples

Ignore-this: 4d3bc3c44b1c0233d59c6ce5eefcc587

X.L.G.Examples : rowOfColumns and tiled tabs layouts
X.L.G.Helpers : helper actions
X.L.G.Wmii : wmii layout

darcs-hash:20101001104142-88fd0-6ac471ab66a886497aba7d6c0b4803c3b8aaa884.gz

1 files changed, 8 insertions, 8 deletions

diff --git a/XMonad/Layout/Groups.hs b/XMonad/Layout/Groups.hs
index fad1154..e0d8efb 100644
--- a/XMonad/Layout/Groups.hs
+++ b/XMonad/Layout/Groups.hs
@@ -73,9 +73,9 @@ import Control.Monad (forM)
 -- group, and the layout with which the groups themselves will
 -- be arranged on the screen.
 --
--- The "XMonad.Layout.Groups.Examples" module contains examples of
--- layouts that can be defined with this combinator, and useful
--- operations on them. It is also the recommended starting point 
+-- The "XMonad.Layout.Groups.Examples" and "XMonad.Layout.Groups.Wmii" 
+-- modules contain examples of layouts that can be defined with this 
+-- combinator. They're also the recommended starting point 
 -- if you are a beginner and looking for something you can use easily.
 --
 -- One thing to note is that 'Groups'-based layout have their own
@@ -87,7 +87,7 @@ import Control.Monad (forM)
 -- example 'ModifySpec's (to be passed to the 'Modify' message) provided 
 -- by this module.
 --
--- If you use both 'Groups'-based and other layouts, The "XMonad.Layout.Groups.Examples"
+-- If you use both 'Groups'-based and other layouts, The "XMonad.Layout.Groups.Helpers"
 -- module provides actions that can work correctly with both, defined using
 -- functions from "XMonad.Actions.MessageFeedback".
 
@@ -117,10 +117,10 @@ gen (U i1 i2) = (U (i1+1) i2, zipWith U (repeat i1) [i2..])
 
 -- | Split an infinite list into two. I ended up not
 -- needing this, but let's keep it just in case.
-split :: [a] -> ([a], [a])
-split as = snd $ foldr step (True, ([], [])) as
-    where step a (True, (as1, as2)) = (False, (a:as1, as2))
-          step a (False, (as1, as2)) = (True, (as1, a:as2))
+-- split :: [a] -> ([a], [a])
+-- split as = snd $ foldr step (True, ([], [])) as
+--     where step a (True, (as1, as2)) = (False, (a:as1, as2))
+--           step a (False, (as1, as2)) = (True, (as1, a:as2))
 
 -- | Add a unique identity to a layout so we can
 -- follow it around.