move Layout stuff into class (hokey first cut).

2025-08-01 04:31:53 -07:00 · 2007-09-14 21:59:59 +00:00
parent bee79c83e6
commit 3f03dcb5c1
4 changed files with 39 additions and 22 deletions
--- a/Config.hs
+++ b/Config.hs
@@ -92,10 +92,10 @@ borderWidth = 1
 -- |
 -- The default set of tiling algorithms
 --
-defaultLayouts :: [Layout Window]
-defaultLayouts = [ tiled
-                 , mirror tiled
-                 , full
+defaultLayouts :: [SomeLayout Window]
+defaultLayouts = [ SomeLayout tiled
+                 , SomeLayout $ mirror tiled
+                 , SomeLayout full

                 -- Extension-provided layouts
                 ]