From a157d5465632940411e5b8ccbd4e0827216734db Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Sat, 13 Oct 2007 22:43:00 +0200
Subject: clean up names of layout code

darcs-hash:20071013204300-cba2c-7f8fb3244bbd918cd28679debad2129db542d7e8
---
 Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index d4b602f..9a630de 100644
--- a/Main.hs
+++ b/Main.hs
@@ -50,7 +50,7 @@ main = do
     hSetBuffering stdout NoBuffering
     args <- getArgs
 
-    let initialWinset = new defaultLayout workspaces $ zipWith SD xinesc gaps
+    let initialWinset = new layoutHook workspaces $ zipWith SD xinesc gaps
 
         maybeRead s = case reads s of
                             [(x, "")] -> Just x
@@ -59,8 +59,8 @@ main = do
         winset = fromMaybe initialWinset $ do
                     ("--resume" : s : _) <- return args
                     ws                   <- maybeRead s
-                    return . W.ensureTags defaultLayout workspaces
-                           $ W.mapLayout (fromMaybe defaultLayout . maybeRead) ws
+                    return . W.ensureTags layoutHook workspaces
+                           $ W.mapLayout (fromMaybe layoutHook . maybeRead) ws
 
         gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0)
 
-- 
cgit v1.2.3