diff options
| author | Volpeon <github@volpeon.ink> | 2023-05-26 07:40:13 +0200 |
|---|---|---|
| committer | Volpeon <github@volpeon.ink> | 2023-05-26 07:40:13 +0200 |
| commit | 11d0fb47c292a0ca25a9c377499d2b221d97a5cb (patch) | |
| tree | e729e2a4508763b3073b7eae9a56bc9c6a9ca0f7 /src/Data/JLD/Model/Direction.hs | |
| download | hs-jsonld-11d0fb47c292a0ca25a9c377499d2b221d97a5cb.tar.gz hs-jsonld-11d0fb47c292a0ca25a9c377499d2b221d97a5cb.tar.bz2 hs-jsonld-11d0fb47c292a0ca25a9c377499d2b221d97a5cb.zip | |
Init
Diffstat (limited to 'src/Data/JLD/Model/Direction.hs')
| -rw-r--r-- | src/Data/JLD/Model/Direction.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Data/JLD/Model/Direction.hs b/src/Data/JLD/Model/Direction.hs new file mode 100644 index 0000000..2ed8e87 --- /dev/null +++ b/src/Data/JLD/Model/Direction.hs | |||
| @@ -0,0 +1,13 @@ | |||
| 1 | module Data.JLD.Model.Direction (Direction (..)) where | ||
| 2 | |||
| 3 | import Data.JLD.Prelude | ||
| 4 | |||
| 5 | import Text.Show (Show (..)) | ||
| 6 | |||
| 7 | data Direction = LTR | RTL | NoDirection | ||
| 8 | deriving (Eq, Ord) | ||
| 9 | |||
| 10 | instance Show Direction where | ||
| 11 | show LTR = "ltr" | ||
| 12 | show RTL = "rtl" | ||
| 13 | show NoDirection = "none" | ||