From db6fce0a3d733402fab4f1fe6f5bf4ed40c6c082 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sat, 22 Mar 2008 00:09:56 +0100 Subject: formatting darcs-hash:20080321230956-cba2c-5248cdf7b5694cbfaf2b6ba754ebc3c8a7fbd592 --- XMonad/Core.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'XMonad') 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 -- cgit v1.2.3