diff options
| -rw-r--r-- | XMonad/Layout/LayoutCombinators.hs | 14 |
1 files changed, 7 insertions, 7 deletions
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 |