1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S8101
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 8101 Transit direction, coded
17 -- > Desc: Identification of the point of origin and point of direction.
21 -- > BS Buyer to seller
22 -- > Self explanatory.
23 -- > SB Seller to buyer
24 -- > Self explanatory.
25 -- > SC Subcontractor to seller
26 -- > Self explanatory.
27 -- > SD Seller to drop ship designated location
28 -- > Self explanatory.
29 -- > SF Seller to freight forwarder
30 -- > Self explanatory.
31 -- > SS Seller to subcontractor
32 -- > Self explanatory.
33 -- > ZZZ Mutually defined
34 -- > Self explanatory.
35 simple8101 :: Parser Value
36 simple8101 = simple "8101" (alphaNumeric `upTo` 3)