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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Composites.C516
   7   ( -- * Definition
   8     compositeC516
   9     -- * Dependencies
  10   , simple4405
  11   , simple5004
  12   , simple5025
  13   , simple6343
  14   , simple6345
  15   ) where
  16
  17 import           Text.Edifact.D96A.Simples (simple4405, simple5004, simple5025,
  18                                             simple6343, simple6345)
  19
  20 import           Text.Edifact.Parsing
  21 import           Text.Edifact.Types        (Value)
  22
  23 -- | Derived from this specification:
  24 --
  25 -- >       C516  MONETARY AMOUNT
  26 -- >
  27 -- >       Desc: Amount of goods or services stated as a monetary amount in
  28 -- >             a specified currency.
  29 -- >
  30 -- > 010   5025   Monetary amount type qualifier                M  an..3
  31 -- > 020   5004   Monetary amount                               C  n..18
  32 -- > 030   6345   Currency, coded                               C  an..3
  33 -- > 040   6343   Currency qualifier                            C  an..3
  34 -- > 050   4405   Status, coded                                 C  an..3
  35 --
  36 -- Dependencies: 'simple4405', 'simple5004', 'simple5025', 'simple6343', 'simple6345'.
  37 compositeC516 :: Parser Value
  38 compositeC516 =
  39   composite "C516"
  40     [ "010" .@ mandatory simple5025
  41     , "020" .@ optional  simple5004
  42     , "030" .@ optional  simple6345
  43     , "040" .@ optional  simple6343
  44     , "050" .@ optional  simple4405
  45     ]