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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 module Text.Edifact.Common.Segments.UNS
   4   ( segmentUNS
   5   ) where
   6
   7 import           Text.Edifact.Common.Simples (simple0081)
   8
   9 import           Text.Edifact.Parsing
  10 import           Text.Edifact.Types          (Value)
  11
  12 -- | Derived from this specification:
  13 --
  14 -- >         Change indicators
  15 -- >
  16 -- >           UNS    SECTION CONTROL
  17 -- >
  18 -- >           Function: To separate Header, Detail and Summary sections of a message
  19 -- >
  20 -- >     010   0081  SECTION IDENTIFICATION                                M  a1
  21 --
  22 -- Dependencies: 'simple0081'.
  23 segmentUNS :: Parser Value
  24 segmentUNS =
  25   segment "UNS"
  26     [ "010" .@ mandatory simple0081
  27     ]