Release code as open sourceHEADmaster

1 files changed, 34 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S7075.hs b/specification/src/Text/Edifact/D96A/Simples/S7075.hs
new file mode 100644
index 0000000..7a725b2
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S7075.hs
@@ -0,0 +1,34 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S7075
+  ( simple7075
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >   7075  Packaging level, coded
+-- >
+-- >   Desc: Indication of level of packaging specified.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 Inner
+-- >              Level of packing, if it exists, that is immediately
+-- >              subordinate to the intermediate packaging level.
+-- >         2 Intermediate
+-- >              Level of packaging, if it exists, that is immediately
+-- >              subordinate to the outer packaging level.
+-- >         3 Outer
+-- >              For packed merchandise, outermost level of packaging for
+-- >              a shipment.
+-- >         4 No packaging hierarchy
+-- >              There is no specifiable level of packaging: packaging is
+-- >              inner and outer level as well.
+simple7075 :: Parser Value
+simple7075 = simple "7075" (alphaNumeric `upTo` 3)