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 /Operations.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 'Operations.hs')
-rw-r--r-- | Operations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs index ae6d8e1..b911cf5 100644 --- a/Operations.hs +++ b/Operations.hs @@ -342,11 +342,11 @@ runOnWorkspaces job =do modify $ \s -> s { windowset = ws { W.current = c, W.visible = v, W.hidden = h } } -- | Set the layout of the currently viewed workspace -setLayout :: LayoutClass l Window => l Window -> X () +setLayout :: Layout Window -> X () setLayout l = do ss@(W.StackSet { W.current = c@(W.Screen { W.workspace = ws })}) <- gets windowset handleMessage (W.layout ws) (SomeMessage ReleaseResources) - windows $ const $ ss {W.current = c { W.workspace = ws { W.layout = Layout l } } } + windows $ const $ ss {W.current = c { W.workspace = ws { W.layout = l } } } ------------------------------------------------------------------------ -- Utilities |