diff options
author | quentin.moser <quentin.moser@unifr.ch> | 2009-01-28 01:47:26 +0100 |
---|---|---|
committer | quentin.moser <quentin.moser@unifr.ch> | 2009-01-28 01:47:26 +0100 |
commit | c84d92f80fe997cc40b6ec0ed6e1fd7587354959 (patch) | |
tree | 9d08089baa7809becbc24c8cdab1fe87a9acba73 | |
parent | c25bb467c9bbff2faaeec6ff805d26479a8e7dbe (diff) | |
download | XMonadContrib-c84d92f80fe997cc40b6ec0ed6e1fd7587354959.tar.gz XMonadContrib-c84d92f80fe997cc40b6ec0ed6e1fd7587354959.tar.xz XMonadContrib-c84d92f80fe997cc40b6ec0ed6e1fd7587354959.zip |
NoWrap export patch for use with X.L.MessageControl
Ignore-this: 2b76afa0547aaed5fb39454a074ec4c3
darcs-hash:20090128004726-5ccef-a770e7113f6d8205e52268fc6cc7145f3a4ba81b.gz
Diffstat (limited to '')
-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 |