1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8323
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8323 Transport movement code [B]
17 -- > Desc: Code specifying the transport movement.
22 -- > Self explanatory.
25 -- > Self explanatory.
28 -- > The cargo is moving in transit through a country and
29 -- > will not become part of the commerce of that country.
32 -- > The cargo is being moved by more than one transport
33 -- > means in succession under the responsibility of the same
37 -- > The cargo is being moved by more than one transport
38 -- > means in succession.
39 simple8323 :: Parser Value
40 simple8323 = simple "8323" (alphaNumeric `upTo` 3)