1 {-# LANGUAGE OverloadedStrings #-}
3 module Text.Edifact.Common.Segments.UNZ
7 import Text.Edifact.Common.Simples (simple0020, simple0036)
9 import Text.Edifact.Parsing
10 import Text.Edifact.Types (Value)
12 -- | Derived from this specification:
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
18 -- Dependencies: 'simple0020', 'simple0036'.
19 segmentUNZ :: Parser Value
22 [ "010" .@ mandatory simple0036
23 , "030" .@ mandatory simple0020