1 {-# LANGUAGE OverloadedStrings #-}
3 module Text.Edifact.Common.Segments.UNS
7 import Text.Edifact.Common.Simples (simple0081)
9 import Text.Edifact.Parsing
10 import Text.Edifact.Types (Value)
12 -- | Derived from this specification:
14 -- > Change indicators
16 -- > UNS SECTION CONTROL
18 -- > Function: To separate Header, Detail and Summary sections of a message
20 -- > 010 0081 SECTION IDENTIFICATION M a1
22 -- Dependencies: 'simple0081'.
23 segmentUNS :: Parser Value
26 [ "010" .@ mandatory simple0081