1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S9015
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 9015 Status type, coded
17 -- > Desc: Code identifying the type of status event.
22 -- > Status type is related to transport.
23 simple9015 :: Parser Value
24 simple9015 = simple "9015" (alphaNumeric `upTo` 3)