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 | 2d07995ad8a65525273e5f079662e7c91f65c697 (patch) | |
| tree | cf23d81856c6b04f242fad3e4b032a597412eebe /EventLoop.hs | |
| parent | 109b7e0d38bc3ab3781c78882db35e182a489e7f (diff) | |
| download | xmonad-2d07995ad8a65525273e5f079662e7c91f65c697.tar.gz xmonad-2d07995ad8a65525273e5f079662e7c91f65c697.tar.xz xmonad-2d07995ad8a65525273e5f079662e7c91f65c697.zip | |
Add readsLayout, remove the existential from XConfig
darcs-hash:20071101082155-a5988-82be25ec6b35cb1d39e0613b3d810dfd75836098.gz
Diffstat (limited to '')
| -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 |