Release code as open sourceHEADmaster

1 files changed, 43 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S8393.hs b/specification/src/Text/Edifact/D96A/Simples/S8393.hs
new file mode 100644
index 0000000..076548d
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S8393.hs
@@ -0,0 +1,43 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S8393
+  ( simple8393
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >   8393  Returnable package load contents, coded
+-- >
+-- >   Desc: To indicate the composition of goods loaded into a returnable
+-- >         package.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 Loaded with empty 4-block for blocking purposes
+-- >              Description to be provided.
+-- >         2 Empty container with dunnage
+-- >              Description to be provided.
+-- >         3 Empty container
+-- >              Description to be provided.
+-- >         4 Loaded with production material
+-- >              Description to be provided.
+-- >         5 Mixed empty and loaded
+-- >              Description to be provided.
+-- >         6 Obsolete material
+-- >              Description to be provided.
+-- >         7 Loaded with excess returned production material
+-- >              Description to be provided.
+-- >         8 Loaded with rejected material
+-- >              Description to be provided.
+-- >         9 Service part obsolete container
+-- >              Description to be provided.
+-- >        10 Loaded with returned processed material
+-- >              Description to be provided.
+simple8393 :: Parser Value
+simple8393 = simple "8393" (alphaNumeric `upTo` 3)