1 files changed, 118 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S8155.hs b/specification/src/Text/Edifact/D96A/Simples/S8155.hs
new file mode 100644
index 0000000..e9d1b5b
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S8155.hs
@@ -0,0 +1,118 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S8155
+  ( simple8155
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 8155  Equipment size and type identification
+-- >
+-- >   Desc: Coded description of the size and type of equipment e.g. unit
+-- >         load device.
+-- >
+-- >   Repr: an..10
+-- >
+-- >         1 Dime coated tank
+-- >              Self explanatory.
+-- >         2 Epoxy coated tank
+-- >              Self explanatory.
+-- >         3 IMO1
+-- >              Description to be provided.
+-- >         4 IMO2
+-- >              Description to be provided.
+-- >         5 IMO3
+-- >              Description to be provided.
+-- >         6 Pressurized tank
+-- >              Self explanatory.
+-- >         7 Refrigerated tank
+-- >              Self explanatory.
+-- >         8 Semi-refrigerated
+-- >              Self explanatory.
+-- >         9 Stainless steel tank
+-- >              Self explanatory.
+-- >        10 Nonworking reefer container 40 ft
+-- >              A 40 foot refrigerated container that is not actively
+-- >              controlling temperature of the product.
+-- >        11 Box pallet
+-- >              Self explanatory.
+-- >        12 Europallet
+-- >              80 x 120 cm.
+-- >        13 Scandinavian pallet
+-- >              100 x 120 cm.
+-- >        14 Trailer
+-- >              Non self-propelled vehicle designed for the carriage of
+-- >              cargo so that it can be towed by a motor vehicle.
+-- >        15 Nonworking reefer container 20 ft
+-- >              A 20 foot refrigerated container that is not actively
+-- >              controlling temperature of the product.
+-- >        16 Exchangeable pallet
+-- >              Standard pallet exchangeable following international
+-- >              convention.
+-- >        17 Semi-trailer
+-- >              Non self propelled vehicle without fron twheels designed
+-- >              for the carriage of cargo and provided with a kingpin.
+-- >        18 Tank container 20 ft.
+-- >              Self explanatory.
+-- >        19 Tank container 30 ft.
+-- >              Self explanatory.
+-- >        20 Tank container 40 ft.
+-- >              Self explanatory.
+-- >        21 Container IC 20 ft.
+-- >              Self explanatory. IC = InterContainer (subsidiary company
+-- >              of the European railway, responsible for container
+-- >              traffic in a rail environment for special container
+-- >              handling).
+-- >        22 Container IC 30 ft.
+-- >              Self explanatory.
+-- >        23 Container IC 40 ft.
+-- >              Self explanatory.
+-- >        24 Refrigerator tank 20 ft.
+-- >              Self explanatory.
+-- >        25 Refrigerator tank 30 ft.
+-- >              Self explanatory.
+-- >        26 Refrigerator tank 40 ft.
+-- >              Self explanatory.
+-- >        27 Tank container IC 20 ft.
+-- >              Self explanatory.
+-- >        28 Tank container IC 30 ft.
+-- >              Self explanatory.
+-- >        29 Tank container IC 40 ft.
+-- >              Self explanatory.
+-- >        30 Refrigerator tank IC 20 ft.
+-- >              Self explanatory.
+-- > +      31 Temperature controlled container 30 ft.
+-- >              Temperature controlled container measuring 30 feet.
+-- >        32 Refrigerator tank IC 40 ft.
+-- >              Self explanatory.
+-- >        33 Movable case: L < 6,15m
+-- >              Self explanatory.
+-- >        34 Movable case: 6,15m < L < 7,82m
+-- >              Self explanatory.
+-- >        35 Movable case: 7,82m < L < 9,15m
+-- >              Self explanatory.
+-- >        36 Movable case: 9,15m < L < 10,90m
+-- >              Self explanatory.
+-- >        37 Movable case: 10,90m < L < 13,75m
+-- >              Self explanatory.
+-- >        38 Totebin
+-- >              A steel open top unit of about 1,5 * 1,5 * 2,5 meters for
+-- >              road transport of bulk cargo.
+-- >        39 Temperature controlled container 20 ft
+-- >              Temperature controlled container measuring 20 feet.
+-- >        40 Temperature controlled container 40 ft
+-- >              A temperature controlled container measuring 40 feet.
+-- > +      41 Non working refrigerated (reefer) container 30ft.
+-- >              A 30 foot refrigerated (reefer) container that is not
+-- >              actively cooling the product.
+-- > +      42 Dual trailers
+-- >              Two trailers linked together one behind another and
+-- >              pulled by one tractor.
+simple8155 :: Parser Value
+simple8155 = simple "8155" (alphaNumeric `upTo` 10)