1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S8281
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8281 Transport ownership, coded
17 -- > Desc: Code indicating the ownership of the 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.
24 -- > 2 Transport for another account
25 -- > The owner of the transported goods does not own the means
26 -- > of transport or has not rented it for this transport.
27 simple8281 :: Parser Value
28 simple8281 = simple "8281" (alphaNumeric `upTo` 3)