From 9e88d56b03ceaf63709cbbc7bda3f20c9a1a3320 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 1 Nov 2007 09:21:55 +0100
Subject: Add readsLayout, remove the existential from XConfig

darcs-hash:20071101082155-a5988-82be25ec6b35cb1d39e0613b3d810dfd75836098
---
 EventLoop.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'EventLoop.hs')

diff --git a/EventLoop.hs b/EventLoop.hs
index 9866287..24680f2 100644
--- a/EventLoop.hs
+++ b/EventLoop.hs
@@ -50,7 +50,8 @@ makeMain xmc = do
     hSetBuffering stdout NoBuffering
     args <- getArgs
 
-    let (layout, lreads) = case xmc of XConfig {layoutHook = lh } -> (Layout lh, \s -> [(Layout (x `asTypeOf` lh), s') | (x, s') <- reads s])
+    let layout = layoutHook xmc
+        lreads = readsLayout layout
         initialWinset = new layout (workspaces xmc) $ zipWith SD xinesc gaps
 
         maybeRead reads' s = case reads' s of
-- 
cgit v1.2.3