diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-23 14:17:23 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-23 14:17:23 +0200 |
| commit | 9f614caf1d67ce98c2668662ed5b1daa3a92d3a8 (patch) | |
| tree | 7264dd89c76545ac45c37d9301618280e6810774 | |
| parent | e4e6e419a76049090a8dbb994b8943f97ce4f20f (diff) | |
| download | XMonadContrib-9f614caf1d67ce98c2668662ed5b1daa3a92d3a8.tar.gz XMonadContrib-9f614caf1d67ce98c2668662ed5b1daa3a92d3a8.tar.xz XMonadContrib-9f614caf1d67ce98c2668662ed5b1daa3a92d3a8.zip | |
add a hook to LayoutHelpers.
darcs-hash:20070923121723-72aca-45c0afd09bcc3b07b2ae8337bdc4527c288e6b7f.gz
| -rw-r--r-- | LayoutHelpers.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LayoutHelpers.hs b/LayoutHelpers.hs index e51f45c..4401590 100644 --- a/LayoutHelpers.hs +++ b/LayoutHelpers.hs @@ -33,7 +33,9 @@ class (Show (m l a), Read (m l a), Layout l a) => LayoutModifier m l a where modifyModify _ _ = return Nothing redoLayout :: m l a -> Rectangle -> Stack a -> [(a, Rectangle)] -> X ([(a, Rectangle)], Maybe (l a -> m l a)) - redoLayout _ _ _ wrs = return (wrs, Nothing) + redoLayout m _ _ wrs = do hook m; return (wrs, Nothing) + hook :: m l a -> X () + hook _ = return () instance LayoutModifier m l a => Layout (m l) a where doLayout m r s = do (ws, ml') <- doLayout (extractLayout m) r s |