1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S3239
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 3239 Country of origin, coded
17 -- > Desc: Country in which the goods have been produced or
18 -- > manufactured, according to criteria laid down for the
19 -- > purposes of application of the Customs tariff, of
20 -- > quantitative restrictions, or of any other measure related to
25 -- > Note: See Country and currency codes (UNTDED) or ISO 3166 two alpha
26 -- > country code (Code set 3207).
27 simple3239 :: Parser Value
28 simple3239 = simple "3239" (alphaNumeric `upTo` 3)