module Text.Layout.Table.Spec.LenSpec
( LenSpec (..)
, expand
, fixed
, expandUntil
, fixedUntil
, expandBetween
) where
import Data.Default.Class
data LenSpec
= Expand
| Fixed Int
| ExpandUntil Int
| FixedUntil Int
| ExpandBetween Int Int
instance Default LenSpec where
def :: LenSpec
def = LenSpec
expand
expand :: LenSpec
expand :: LenSpec
expand = LenSpec
Expand
fixed :: Int -> LenSpec
fixed :: Int -> LenSpec
fixed = Int -> LenSpec
Fixed
expandUntil :: Int -> LenSpec
expandUntil :: Int -> LenSpec
expandUntil = Int -> LenSpec
ExpandUntil
fixedUntil :: Int -> LenSpec
fixedUntil :: Int -> LenSpec
fixedUntil = Int -> LenSpec
FixedUntil
expandBetween :: Int -> Int -> LenSpec
expandBetween :: Int -> Int -> LenSpec
expandBetween = Int -> Int -> LenSpec
ExpandBetween