1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S8459
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8459 Excess transportation responsibility, coded
17 -- > Desc: Indication of responsibility for excess transportation.
21 -- > A Customer plant (receiving location)
22 -- > Self explanatory.
23 -- > B Material release issuer
24 -- > Self explanatory.
25 -- > S Supplier authority
26 -- > Self explanatory.
27 -- > X Responsibility to be determined
28 -- > Self explanatory.
29 -- > ZZZ Mutually defined
30 -- > Self explanatory.
31 simple8459 :: Parser Value
32 simple8459 = simple "8459" (alphaNumeric `upTo` 3)