]> git.immae.eu Git - github/fretlink/edi-parser.git/blame - specification/src/Text/Edifact/D96A/Simples/S8395.hs
Release code as open source
[github/fretlink/edi-parser.git] / specification / src / Text / Edifact / D96A / Simples / S8395.hs
CommitLineData
a9d77a20
FM
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D96A.Simples.S8395
7 ( simple8395
8 ) where
9
10import Text.Edifact.Parsing
11import Text.Edifact.Types (Value)
12
13-- | Derived from this specification:
14--
15-- > 8395 Returnable package freight payment responsibility, coded
16-- >
17-- > Desc: To indicate responsibility for payment of return freight
18-- > charges for packaging that is returnable.
19-- >
20-- > Repr: an..3
21-- >
22-- > 1 Paid by customer
23-- > Self explanatory.
24-- > 2 Free
25-- > Self explanatory.
26-- > 3 Paid by supplier
27-- > Self explanatory.
28-- > ZZZ Mutually defined
29-- > Self explanatory.
30simple8395 :: Parser Value
31simple8395 = simple "8395" (alphaNumeric `upTo` 3)