table-layout-0.4.0.0: src/Text/Layout/Table/Position.hs

{-# LANGUAGE PatternSynonyms #-}
module Text.Layout.Table.Position where

import Data.Default.Class

-- | Specifies a position relative from a beginning.
data Position orientation = Start | Center | End deriving Show

instance Default (Position o) where
    def = Start

-- | Horizontal orientation.
data H

-- | Vertical orientation
data V

left :: Position H
left = Start

right :: Position H
right = End

center :: Position o
center = Center

top :: Position V
top = Start

bottom :: Position V
bottom = End