diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-01 02:28:03 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-01 02:28:03 +0200 |
commit | 1e9f1d375c940e513441d17d18c79112c3073b8d (patch) | |
tree | 083014b8311f41256877dfc5ec445111aaf48076 /XMonad.hs | |
parent | fe629abc3fe4e8c01ac1fb7b05ed794923055b9c (diff) | |
download | xmonad-1e9f1d375c940e513441d17d18c79112c3073b8d.tar.gz xmonad-1e9f1d375c940e513441d17d18c79112c3073b8d.tar.xz xmonad-1e9f1d375c940e513441d17d18c79112c3073b8d.zip |
formatting fixes. the style is getting a bit dodgy in some places...
darcs-hash:20070401002803-9c5c1-e15fd397cbaf1182a13e1c55ca024ef2ef2fdbae.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -17,7 +17,7 @@ module XMonad ( X, WorkSpace, XState(..), Layout(..), LayoutDesc(..), runX, io, withDisplay, isRoot, - spawn, trace, whenJust + spawn, trace, whenJust, swap ) where import StackSet (StackSet) @@ -53,6 +53,11 @@ type WorkSpace = StackSet Window -- | The different layout modes data Layout = Full | Tile +-- | 'not' for Layout. +swap :: Layout -> Layout +swap Full = Tile +swap _ = Full + -- | A full description of a particular workspace's layout parameters. data LayoutDesc = LayoutDesc { layoutType :: !Layout , tileFraction :: !Rational |