1 files changed, 27 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Segments/Types.hs b/scaffolder/src/Text/Edifact/Scaffolder/Segments/Types.hs
new file mode 100644
index 0000000..6a34cbc
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Segments/Types.hs
@@ -0,0 +1,27 @@
+module Text.Edifact.Scaffolder.Segments.Types where
+
+import           Text.Edifact.Scaffolder.Commons
+
+data Dependency = Dependency { dependencyPosition :: Position
+                             , dependencyElement  :: Element
+                             } deriving Show
+
+data Element = Composite CompositeCode Text Presence
+             | Simple SimpleCode Text Presence SimpleType SimpleLength
+               deriving (Show, Eq, Ord)
+
+data SimpleType = Alphanumeric | Alphabetic | Numeric deriving (Show, Eq, Ord)
+
+data SimpleLength = Exactly Text | UpTo Text deriving (Show, Eq, Ord)
+
+getCode :: Element -> String
+getCode (Simple (SimpleCode c) _ _ _ _)   = c
+getCode (Composite (CompositeCode c) _ _) = c
+
+getSimple :: Element -> Maybe SimpleCode
+getSimple (Simple c _ _ _ _) = Just c
+getSimple _                  = Nothing
+
+getComposite :: Element -> Maybe CompositeCode
+getComposite (Composite c _ _) = Just c
+getComposite _                 = Nothing