blob: 2ed8e8706e5be74854b7606f5740a657e918cd38 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module Data.JLD.Model.Direction (Direction (..)) where
import Data.JLD.Prelude
import Text.Show (Show (..))
data Direction = LTR | RTL | NoDirection
deriving (Eq, Ord)
instance Show Direction where
show LTR = "ltr"
show RTL = "rtl"
show NoDirection = "none"
|
