blob: 3fd6c6655bf7e45bda2f2283fbe051d91671ea11 (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S6245
( simple6245
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 6245 Temperature type code qualifier [B]
-- >
-- > Desc: Code qualifying the type of a temperature.
-- >
-- > Repr: an..3
-- >
-- > 1 Storage temperature
-- > The temperature at which the cargo is to be kept while
-- > it is in storage.
-- >
-- > 2 Transport temperature
-- > The temperature at which cargo is to be kept while it is
-- > under transport.
-- >
-- > 3 Cargo operating temperature
-- > The temperature at which cargo is to be kept during
-- > cargo handling.
-- >
-- > 4 Transport emergency temperature
-- > The temperature at which emergency procedures apply for
-- > the disposal of temperature-controlled goods.
-- >
-- > 5 Transport control temperature
-- > The maximum temperature at which certain products can be
-- > safely transported.
simple6245 :: Parser Value
simple6245 = simple "6245" (alphaNumeric `upTo` 3)
|