diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 09:21:55 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 09:21:55 +0100 |
| commit | 9e88d56b03ceaf63709cbbc7bda3f20c9a1a3320 (patch) | |
| tree | cf23d81856c6b04f242fad3e4b032a597412eebe /EventLoop.hs | |
| parent | 113affe7da02d59013fcaadec17a26f258d360c3 (diff) | |
| download | metatile-9e88d56b03ceaf63709cbbc7bda3f20c9a1a3320.tar metatile-9e88d56b03ceaf63709cbbc7bda3f20c9a1a3320.zip | |
Add readsLayout, remove the existential from XConfig
darcs-hash:20071101082155-a5988-82be25ec6b35cb1d39e0613b3d810dfd75836098
Diffstat (limited to 'EventLoop.hs')
| -rw-r--r-- | EventLoop.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |