specification/src/Text/Edifact/D01B/Segments/CNI.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Segments.CNI
   7   ( -- * Definition
   8     segmentCNI
   9     -- * Dependencies
  10   , compositeC503
  11   , simple1312
  12   , simple1490
  13   ) where
  14
  15 import           Text.Edifact.D01B.Composites (compositeC503)
  16 import           Text.Edifact.D01B.Simples    (simple1312, simple1490)
  17
  18 import           Text.Edifact.Parsing
  19 import           Text.Edifact.Types           (Value)
  20
  21 -- | Derived from this specification:
  22 --
  23 -- >        CNI  CONSIGNMENT INFORMATION
  24 -- >
  25 -- >        Function: To identify one consignment.
  26 -- >
  27 -- > 010    1490 CONSOLIDATION ITEM NUMBER                  C    1 n..4
  28 -- >
  29 -- > 020    C503 DOCUMENT/MESSAGE DETAILS                   C    1
  30 -- >        1004  Document identifier                       C      an..35
  31 -- >        1373  Document status code                      C      an..3
  32 -- >        1366  Document source description               C      an..70
  33 -- >        3453  Language name code                        C      an..3
  34 -- >        1056  Version identifier                        C      an..9
  35 -- >        1060  Revision identifier                       C      an..6
  36 -- >
  37 -- > 030    1312 CONSIGNMENT LOAD SEQUENCE IDENTIFIER       C    1 n..4
  38 --
  39 -- Dependencies: 'compositeC503', 'simple1312', 'simple1490'.
  40 segmentCNI :: Parser Value
  41 segmentCNI =
  42   segment "CNI"
  43     [ "010" .@ optional  simple1490
  44     , "020" .@ optional  compositeC503
  45     , "030" .@ optional  simple1312
  46     ]