Release code as open sourceHEADmaster

1 files changed, 47 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Composites/C509.hs b/specification/src/Text/Edifact/D96A/Composites/C509.hs
new file mode 100644
index 0000000..1903b5e
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Composites/C509.hs
@@ -0,0 +1,47 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Composites.C509
+  ( -- * Definition
+    compositeC509
+    -- * Dependencies
+  , simple5118
+  , simple5125
+  , simple5284
+  , simple5375
+  , simple5387
+  , simple6411
+  ) where
+
+import           Text.Edifact.D96A.Simples (simple5118, simple5125, simple5284,
+                                            simple5375, simple5387, simple6411)
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types        (Value)
+
+-- | Derived from this specification:
+--
+-- >       C509  PRICE INFORMATION
+-- >
+-- >       Desc: Identification of price type, price and related details.
+-- >
+-- > 010   5125   Price qualifier                               M  an..3
+-- > 020   5118   Price                                         C  n..15
+-- > 030   5375   Price type, coded                             C  an..3
+-- > 040   5387   Price type qualifier                          C  an..3
+-- > 050   5284   Unit price basis                              C  n..9
+-- > 060   6411   Measure unit qualifier                        C  an..3
+--
+-- Dependencies: 'simple5118', 'simple5125', 'simple5284', 'simple5375', 'simple5387', 'simple6411'.
+compositeC509 :: Parser Value
+compositeC509 =
+  composite "C509"
+    [ "010" .@ mandatory simple5125
+    , "020" .@ optional  simple5118
+    , "030" .@ optional  simple5375
+    , "040" .@ optional  simple5387
+    , "050" .@ optional  simple5284
+    , "060" .@ optional  simple6411
+    ]