blob: 1d021b8e908cdc49d09005b9cbb1f4c6314b030a (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S8281
( simple8281
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 8281 Transport means ownership indicator code [B]
-- >
-- > Desc: Code indicating the ownership of a means of transport.
-- >
-- > Repr: an..3
-- >
-- > 1 Transport for the owner's account
-- > The owner of the transported goods is also the owner of
-- > the means of transport or rented it for this transport.
-- >
-- > 2 Transport for another account
-- > The owner of the transported goods does not own the
-- > means of transport or has not rented it for this
-- > transport.
-- >
-- > 3 Private transport
-- > A code indicating privately owned transport.
simple8281 :: Parser Value
simple8281 = simple "8281" (alphaNumeric `upTo` 3)
|
