scaffolder/src/Text/Edifact/Scaffolder/Simples/Types.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Text.Edifact.Scaffolder.Simples.Types where

data Representation = Representation Content Cardinality
                      deriving Show

data Content = AlphaNumeric
             | Alpha
             | Numeric
               deriving Show

data Cardinality = UpTo Int
                 | Exactly Int
                 | AnyNumber
                   deriving Show