core/src/Text/Edifact/Common/Segments/UNZ.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Text.Edifact.Common.Segments.UNZ
   4   ( segmentUNZ
   5   ) where
   6
   7 import           Text.Edifact.Common.Simples (simple0020, simple0036)
   8
   9 import           Text.Edifact.Parsing
  10 import           Text.Edifact.Types          (Value)
  11
  12 -- | Derived from this specification:
  13 --
  14 -- > Pos                Segment                         M/C     Repeat  Repr.   Notes
  15 -- > 010                0036    Interchange control count             M   1         n..6
  16 -- > 020                0020    Interchange control reference     M       1           an..14
  17 --
  18 -- Dependencies: 'simple0020', 'simple0036'.
  19 segmentUNZ :: Parser Value
  20 segmentUNZ =
  21   segment "UNZ"
  22     [ "010" .@ mandatory simple0036
  23     , "030" .@ mandatory simple0020
  24     ]