specification/src/Text/Edifact/D96A/Composites/C509.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Composites.C509
   7   ( -- * Definition
   8     compositeC509
   9     -- * Dependencies
  10   , simple5118
  11   , simple5125
  12   , simple5284
  13   , simple5375
  14   , simple5387
  15   , simple6411
  16   ) where
  17
  18 import           Text.Edifact.D96A.Simples (simple5118, simple5125, simple5284,
  19                                             simple5375, simple5387, simple6411)
  20
  21 import           Text.Edifact.Parsing
  22 import           Text.Edifact.Types        (Value)
  23
  24 -- | Derived from this specification:
  25 --
  26 -- >       C509  PRICE INFORMATION
  27 -- >
  28 -- >       Desc: Identification of price type, price and related details.
  29 -- >
  30 -- > 010   5125   Price qualifier                               M  an..3
  31 -- > 020   5118   Price                                         C  n..15
  32 -- > 030   5375   Price type, coded                             C  an..3
  33 -- > 040   5387   Price type qualifier                          C  an..3
  34 -- > 050   5284   Unit price basis                              C  n..9
  35 -- > 060   6411   Measure unit qualifier                        C  an..3
  36 --
  37 -- Dependencies: 'simple5118', 'simple5125', 'simple5284', 'simple5375', 'simple5387', 'simple6411'.
  38 compositeC509 :: Parser Value
  39 compositeC509 =
  40   composite "C509"
  41     [ "010" .@ mandatory simple5125
  42     , "020" .@ optional  simple5118
  43     , "030" .@ optional  simple5375
  44     , "040" .@ optional  simple5387
  45     , "050" .@ optional  simple5284
  46     , "060" .@ optional  simple6411
  47     ]