1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S4237
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4237 Prepaid/collect indicator, coded
17 -- > Desc: Code indicating whether freight item amount is prepaid or to
22 -- > A Payable elsewhere
23 -- > Responsibility for payment of transport charges unknown
24 -- > at time of departure.
25 -- > B Third party to pay
26 -- > A third party to pay the freight bill is known at the
27 -- > time of shipment.
29 -- > Charges are (to be) collected from the consignee at the
32 -- > Charges are (to be) prepaid before the transport actually
34 simple4237 :: Parser Value
35 simple4237 = simple "4237" (alphaNumeric `upTo` 3)