{-# LANGUAGE OverloadedStrings #-}

---- Machine generated code.
---- Output of edi-parser-scaffolder

module Text.Edifact.D96A.Simples.S8051
  ( simple8051
  ) where

import           Text.Edifact.Parsing
import           Text.Edifact.Types   (Value)

-- | Derived from this specification:
--
-- > * 8051  Transport stage qualifier
-- >
-- >   Desc: Qualifier giving a specific meaning to the transport details.
-- >
-- >   Repr: an..3
-- >
-- >         1 Inland transport
-- >              Transport by which goods are moved from or to the
-- >              frontier, or between inland points.
-- >         2 At the statistical territory limit
-- >              Point by which the means of transport are presumed to
-- >              have left the statistical territory of despatch or to
-- >              have entered the statistical territory of arrival.
-- >        10 Pre-carriage transport
-- >              Transport by which the goods are moved prior to their
-- >              main carriage transport.
-- >        11 At border
-- >              Transport by which goods are moved to the Customs
-- >              frontier.
-- >        12 At departure
-- >              Transport by which goods are moved from the place of
-- >              departure.
-- >        13 At destination
-- >              Transport by which goods are moved at the place of
-- >              destination.
-- >        14 At the statistical territory limit
-- >              Transport by which the goods are presumed to have left
-- >              the statistical territory of dispatch or have entered the
-- >              statistical territory of arrival.
-- >        20 Main-carriage transport
-- >              The primary stage in the movement of cargo from the point
-- >              of origin to the intended destination.
-- >        21 Main carriage - first carrier
-- >              The first carrier of the ordered transport when more than
-- >              one carrier is involved.
-- >        22 Main carriage - second carrier
-- >              The second carrier of the ordered transport when more
-- >              than one carrier is involved.
-- >        23 Main carriage - third carrier
-- >              The third carrier of the ordered transport when more than
-- >              one carrier is involved.
-- > +      24 Inland waterway transport
-- >              Transport by which goods are moved via an inland body of
-- >              water.
-- > +      25 Delivery carrier all transport
-- >              Carrier responsible from the point of origin to the final
-- >              delivery destination.
-- >        30 On-carriage transport
-- >              Transport by which the goods are moved after the main-
-- >              carriage transport.
simple8051 :: Parser Value
simple8051 = simple "8051" (alphaNumeric `upTo` 3)