aboutsummaryrefslogtreecommitdiffhomepage
path: root/specification/src/Text/Edifact/D01B/Segments/TMD.hs
diff options
context:
space:
mode:
Diffstat (limited to 'specification/src/Text/Edifact/D01B/Segments/TMD.hs')
-rw-r--r--specification/src/Text/Edifact/D01B/Segments/TMD.hs44
1 files changed, 44 insertions, 0 deletions
diff --git a/specification/src/Text/Edifact/D01B/Segments/TMD.hs b/specification/src/Text/Edifact/D01B/Segments/TMD.hs
new file mode 100644
index 0000000..8da1b95
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Segments/TMD.hs
@@ -0,0 +1,44 @@
1{-# LANGUAGE OverloadedStrings #-}
2
3---- Machine generated code.
4---- Output of edi-parser-scaffolder
5
6module Text.Edifact.D01B.Segments.TMD
7 ( -- * Definition
8 segmentTMD
9 -- * Dependencies
10 , compositeC219
11 , simple8332
12 , simple8341
13 ) where
14
15import Text.Edifact.D01B.Composites (compositeC219)
16import Text.Edifact.D01B.Simples (simple8332, simple8341)
17
18import Text.Edifact.Parsing
19import Text.Edifact.Types (Value)
20
21-- | Derived from this specification:
22--
23-- > TMD TRANSPORT MOVEMENT DETAILS
24-- >
25-- > Function: To specify operational transport movement
26-- > details for a goods item or equipment (which may
27-- > differ from the contractual conditions).
28-- >
29-- > 010 C219 MOVEMENT TYPE C 1
30-- > 8335 Movement type description code C an..3
31-- > 8334 Movement type description C an..35
32-- >
33-- > 020 8332 EQUIPMENT PLAN DESCRIPTION C 1 an..26
34-- >
35-- > 030 8341 HAULAGE ARRANGEMENTS CODE C 1 an..3
36--
37-- Dependencies: 'compositeC219', 'simple8332', 'simple8341'.
38segmentTMD :: Parser Value
39segmentTMD =
40 segment "TMD"
41 [ "010" .@ optional compositeC219
42 , "020" .@ optional simple8332
43 , "030" .@ optional simple8341
44 ]