1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S8281
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8281 Transport means ownership indicator code [B]
17 -- > Desc: Code indicating the ownership of a means of transport.
21 -- > 1 Transport for the owner's account
22 -- > The owner of the transported goods is also the owner of
23 -- > the means of transport or rented it for this transport.
25 -- > 2 Transport for another account
26 -- > The owner of the transported goods does not own the
27 -- > means of transport or has not rented it for this
30 -- > 3 Private transport
31 -- > A code indicating privately owned transport.
32 simple8281 :: Parser Value
33 simple8281 = simple "8281" (alphaNumeric `upTo` 3)