blob: 076548d9948d8774062965c51eae60618a779df2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S8393
( simple8393
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 8393 Returnable package load contents, coded
-- >
-- > Desc: To indicate the composition of goods loaded into a returnable
-- > package.
-- >
-- > Repr: an..3
-- >
-- > 1 Loaded with empty 4-block for blocking purposes
-- > Description to be provided.
-- > 2 Empty container with dunnage
-- > Description to be provided.
-- > 3 Empty container
-- > Description to be provided.
-- > 4 Loaded with production material
-- > Description to be provided.
-- > 5 Mixed empty and loaded
-- > Description to be provided.
-- > 6 Obsolete material
-- > Description to be provided.
-- > 7 Loaded with excess returned production material
-- > Description to be provided.
-- > 8 Loaded with rejected material
-- > Description to be provided.
-- > 9 Service part obsolete container
-- > Description to be provided.
-- > 10 Loaded with returned processed material
-- > Description to be provided.
simple8393 :: Parser Value
simple8393 = simple "8393" (alphaNumeric `upTo` 3)
|