diff options
Diffstat (limited to '')
-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 |