NoWrap export patch for use with X.L.MessageControl

Ignore-this: 2b76afa0547aaed5fb39454a074ec4c3

darcs-hash:20090128004726-5ccef-a770e7113f6d8205e52268fc6cc7145f3a4ba81b.gz

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