diff options
| author | Don Stewart <dons@galois.com> | 2008-03-22 00:09:56 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2008-03-22 00:09:56 +0100 |
| commit | 0abd1109c7f56fc59009e168a5433baf743bf6ae (patch) | |
| tree | 50dbfa252ff2e25b6c50c30febf0d82909b63945 /XMonad | |
| parent | 417e71a930b739fb2336ac604f1fde71529dfef3 (diff) | |
| download | xmonad-0abd1109c7f56fc59009e168a5433baf743bf6ae.tar.gz xmonad-0abd1109c7f56fc59009e168a5433baf743bf6ae.tar.xz xmonad-0abd1109c7f56fc59009e168a5433baf743bf6ae.zip | |
formatting
darcs-hash:20080321230956-cba2c-5248cdf7b5694cbfaf2b6ba754ebc3c8a7fbd592.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Core.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index c32678e..a25b47e 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -229,7 +229,9 @@ class Show (layout a) => LayoutClass layout a where -- 'runLayout'; it is only useful for layouts which wish to make -- use of more of the 'Workspace' information (for example, -- "XMonad.Layout.PerWorkspace"). - runLayout :: Workspace WorkspaceId (layout a) a -> Rectangle -> X ([(a, Rectangle)], Maybe (layout a)) + runLayout :: Workspace WorkspaceId (layout a) a + -> Rectangle + -> X ([(a, Rectangle)], Maybe (layout a)) runLayout (Workspace _ l ms) r = maybe (emptyLayout l r) (doLayout l r) ms -- | Given a 'Rectangle' in which to place the windows, and a 'Stack' @@ -246,7 +248,8 @@ class Show (layout a) => LayoutClass layout a where -- Layouts which do not need access to the 'X' monad ('IO', window -- manager state, or configuration) and do not keep track of their -- own state should implement 'pureLayout' instead of 'doLayout'. - doLayout :: layout a -> Rectangle -> Stack a -> X ([(a, Rectangle)], Maybe (layout a)) + doLayout :: layout a -> Rectangle -> Stack a + -> X ([(a, Rectangle)], Maybe (layout a)) doLayout l r s = return (pureLayout l r s, Nothing) -- | This is a pure version of 'doLayout', for cases where we |