diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-10 00:35:00 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-10 00:35:00 +0200 |
| commit | a6e6b47a087907199148b90c59cbdbf3e96bb274 (patch) | |
| tree | ee72b953f456146713efba4604fe3b2437ee879b | |
| parent | caf593c56be084daf0d42d8d221714f1f27fdfd7 (diff) | |
| download | xmonad-a6e6b47a087907199148b90c59cbdbf3e96bb274.tar.gz xmonad-a6e6b47a087907199148b90c59cbdbf3e96bb274.tar.xz xmonad-a6e6b47a087907199148b90c59cbdbf3e96bb274.zip | |
Simplify rot
darcs-hash:20070409223500-a5988-fa8da8a067b0a923c8709f5656648a5b21241eeb.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -50,11 +50,11 @@ data XState = XState type WorkSpace = StackSet Window -- | The different layout modes -data Layout = Full | Tall | Wide deriving (Enum, Bounded) +data Layout = Full | Tall | Wide deriving (Enum, Bounded, Eq) -- | 'rot' for Layout. rot :: Layout -> Layout -rot x = toEnum $ (fromEnum x + 1) `mod` (fromEnum (maxBound `asTypeOf` x) + 1) +rot x = if x == maxBound then minBound else succ x -- | A full description of a particular workspace's layout parameters. data LayoutDesc = LayoutDesc { layoutType :: !Layout |