diff options
author | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
commit | 2e07689ceadaea1853c1228d14346853223be942 (patch) | |
tree | 69a6f1aed8bf082fd711a366baf3bf62534d9145 /Accordion.hs | |
parent | 7c1d1059d2626927bbc553f0efccb0b472fa569f (diff) | |
download | XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.gz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.xz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.zip |
some renaming of classes and data types.
darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz
Diffstat (limited to 'Accordion.hs')
-rw-r--r-- | Accordion.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Accordion.hs b/Accordion.hs index 91dc8f1..b2fbec8 100644 --- a/Accordion.hs +++ b/Accordion.hs @@ -10,7 +10,7 @@ -- Stability : unstable -- Portability : unportable -- --- Layout that puts non-focused windows in ribbons at the top and bottom +-- LayoutClass that puts non-focused windows in ribbons at the top and bottom -- of the screen. ----------------------------------------------------------------------------- @@ -34,7 +34,7 @@ import Data.Ratio data Accordion a = Accordion deriving ( Read, Show ) -instance Layout Accordion Window where +instance LayoutClass Accordion Window where pureLayout _ sc ws = zip ups tops ++ [(W.focus ws, mainPane)] ++ zip dns bottoms where ups = W.up ws |