Make a String description part of each Layout.

darcs-hash:20070924185753-72aca-95002aa27cfef74bf8caf1e6f243a4626f20659c

1 files changed, 4 insertions, 4 deletions

diff --git a/Config.hs b/Config.hs
index e28399c..66f4fec 100644
--- a/Config.hs
+++ b/Config.hs
@@ -92,10 +92,10 @@ borderWidth = 1
 -- |
 -- The default set of tiling algorithms
 --
-defaultLayouts :: [(String, SomeLayout Window)]
-defaultLayouts = [("tall", SomeLayout tiled)
-                 ,("wide", SomeLayout $ Mirror tiled)
-                 ,("full", SomeLayout Full)
+defaultLayouts :: [SomeLayout Window]
+defaultLayouts = [SomeLayout tiled
+                 ,SomeLayout $ Mirror tiled
+                 ,SomeLayout Full
 
                  -- Extension-provided layouts
                  ]