blob: 3d851607d680c16e93fd3e5d8c97a7277e5aa576 (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S5213
( simple5213
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 5213 Sub-line item price change operation code [C]
-- >
-- > Desc: Code specifying the price change operation for a sub-
-- > line item.
-- >
-- > Repr: an..3
-- >
-- > A Added to the baseline item unit price
-- > Price is to be added to the base line unit price.
-- >
-- > I Included in the baseline item unit price
-- > Price is included in the base line unit price.
-- >
-- > S Subtracted from the baseline item unit price
-- > Price is to be subtracted from the base line unit price.
simple5213 :: Parser Value
simple5213 = simple "5213" (alphaNumeric `upTo` 3)
|