specification/src/Text/Edifact/D96A/Segments/ALI.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Segments.ALI
   7   ( -- * Definition
   8     segmentALI
   9     -- * Dependencies
  10   , simple3239
  11   , simple4183
  12   , simple9213
  13   ) where
  14
  15 import           Text.Edifact.D96A.Simples (simple3239, simple4183, simple9213)
  16
  17 import           Text.Edifact.Parsing
  18 import           Text.Edifact.Types        (Value)
  19
  20 -- | Derived from this specification:
  21 --
  22 -- >       ALI    ADDITIONAL INFORMATION
  23 -- >
  24 -- >       Function: To indicate that special conditions due to the origin,
  25 -- >                 customs preference, fiscal or commercial factors are
  26 -- >                 applicable.
  27 -- >
  28 -- > 010   3239  COUNTRY OF ORIGIN, CODED                       C  an..3
  29 -- >
  30 -- > 020   9213  TYPE OF DUTY REGIME, CODED                     C  an..3
  31 -- >
  32 -- > 030   4183  SPECIAL CONDITIONS, CODED                      C  an..3
  33 -- >
  34 -- > 040   4183  SPECIAL CONDITIONS, CODED                      C  an..3
  35 -- >
  36 -- > 050   4183  SPECIAL CONDITIONS, CODED                      C  an..3
  37 -- >
  38 -- > 060   4183  SPECIAL CONDITIONS, CODED                      C  an..3
  39 -- >
  40 -- > 070   4183  SPECIAL CONDITIONS, CODED                      C  an..3
  41 --
  42 -- Dependencies: 'simple3239', 'simple4183', 'simple9213'.
  43 segmentALI :: Parser Value
  44 segmentALI =
  45   segment "ALI"
  46     [ "010" .@ optional  simple3239
  47     , "020" .@ optional  simple9213
  48     , "030" .@ optional  simple4183
  49     , "040" .@ optional  simple4183
  50     , "050" .@ optional  simple4183
  51     , "060" .@ optional  simple4183
  52     , "070" .@ optional  simple4183
  53     ]