diff options
author | David Roundy <droundy@darcs.net> | 2007-05-12 23:53:01 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-05-12 23:53:01 +0200 |
commit | b36d9ed15ccb87a7109aed86e30e2ef0fdd590d9 (patch) | |
tree | a70ba31d59d9b669b783d89aedeccd895a6d759b /XMonad.hs | |
parent | 2ff8eac400876c06c0264ab1cf98cdff7f6c9036 (diff) | |
download | xmonad-b36d9ed15ccb87a7109aed86e30e2ef0fdd590d9.tar.gz xmonad-b36d9ed15ccb87a7109aed86e30e2ef0fdd590d9.tar.xz xmonad-b36d9ed15ccb87a7109aed86e30e2ef0fdd590d9.zip |
put doLayout in the X monad.
darcs-hash:20070512215301-72aca-59213ac37c38e57d6ffed1d518afd4729f1744c9.gz
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -96,7 +96,7 @@ isRoot w = liftM (w==) (asks theRoot) -- 'doLayout', a pure function to layout a Window set 'modifyLayout', -- 'modifyLayout' can be considered a branch of an exception handler. -- -data Layout = Layout { doLayout :: Rectangle -> [Window] -> [(Window, Rectangle)] +data Layout = Layout { doLayout :: Rectangle -> [Window] -> X [(Window, Rectangle)] , modifyLayout :: SomeMessage -> Maybe Layout } -- Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/, |