From c84d92f80fe997cc40b6ec0ed6e1fd7587354959 Mon Sep 17 00:00:00 2001 From: "quentin.moser" Date: Wed, 28 Jan 2009 01:47:26 +0100 Subject: NoWrap export patch for use with X.L.MessageControl Ignore-this: 2b76afa0547aaed5fb39454a074ec4c3 darcs-hash:20090128004726-5ccef-a770e7113f6d8205e52268fc6cc7145f3a4ba81b.gz --- XMonad/Layout/LayoutCombinators.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'XMonad/Layout/LayoutCombinators.hs') diff --git a/XMonad/Layout/LayoutCombinators.hs b/XMonad/Layout/LayoutCombinators.hs index d4fb4ba..0c20e33 100644 --- a/XMonad/Layout/LayoutCombinators.hs +++ b/XMonad/Layout/LayoutCombinators.hs @@ -46,7 +46,7 @@ module XMonad.Layout.LayoutCombinators -- * New layout choice combinator and 'JumpToLayout' -- $jtl , (|||) - , JumpToLayout(JumpToLayout) + , JumpToLayout(..) ) where import Data.Maybe ( isJust, isNothing ) @@ -213,12 +213,12 @@ infixr 5 ||| data NewSelect l1 l2 a = NewSelect Bool (l1 a) (l2 a) deriving ( Read, Show ) -data NoWrap = NextLayoutNoWrap | Wrap deriving ( Read, Show, Typeable ) -instance Message NoWrap - --- | A message to jump to a particular layout, specified by its --- description string. -data JumpToLayout = JumpToLayout String deriving ( Read, Show, Typeable ) +-- | +data JumpToLayout = JumpToLayout String -- ^ A message to jump to a particular layout + -- , specified by its description string.. + | NextLayoutNoWrap + | Wrap + deriving ( Read, Show, Typeable ) instance Message JumpToLayout instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (NewSelect l1 l2) a where -- cgit v1.2.3