blob: 8296c7ba50ce060cf5792e06bb994070aa338407 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Wetterhorn.Layout.Full where
import Data.Data (Typeable)
import Data.Default
import Wetterhorn.Constraints
import Wetterhorn.Core.W
data Full = Full
deriving (Read, Show, Typeable)
instance Default Full where
def = Full
instance LayoutClass Full where
type C Full = Unconstrained
pureLayout (a : _) _ = [(a, RationalRect 1 1 1 1)]
pureLayout _ _ = []
|
