From a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Menou?= <frederic.menou@fretlink.com>
Date: Thu, 8 Dec 2016 10:19:15 +0200
Subject: Release code as open source

---
 .../src/Text/Edifact/D96A/Simples/S4343.hs         | 58 ++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 specification/src/Text/Edifact/D96A/Simples/S4343.hs

(limited to 'specification/src/Text/Edifact/D96A/Simples/S4343.hs')

diff --git a/specification/src/Text/Edifact/D96A/Simples/S4343.hs b/specification/src/Text/Edifact/D96A/Simples/S4343.hs
new file mode 100644
index 0000000..3cf3cc9
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S4343.hs
@@ -0,0 +1,58 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S4343
+  ( simple4343
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 4343  Response type, coded
+-- >
+-- >   Desc: Code specifying the type of acknowledgement required or
+-- >         transmitted.
+-- >
+-- >   Repr: an..3
+-- >
+-- >    AA     Debit advice
+-- >              Receiver of the payment message needs to return a debit
+-- >              advice in response to the payment message.
+-- >    AB     Message acknowledgement
+-- >              Indicates that an acknowledge relating to receipt is
+-- >              required.
+-- >    AC     Acknowledge - with detail and change
+-- >              Acknowledge complete including changes.
+-- >    AD     Acknowledge - with detail, no change
+-- >              Acknowledge complete without changes.
+-- >    AF     Debit advice/message acknowledgement
+-- >              The sender wishes to receive both a Debit Advice and an
+-- >              acknowledgement of receipt for a payment message.
+-- >    AG     Authentication
+-- >              Authentication, by a party, of a document established for
+-- >              him by another party.
+-- > +  AI     Acknowledge only changes
+-- >              Acknowledgement of changes only is required.
+-- >    AP     Accepted
+-- >              Indication that the referenced offer or transaction
+-- >              (e.g., cargo booking or quotation request) has been
+-- >              accepted.
+-- >    CA     Conditionally accepted
+-- >              Indication that the referenced offer or transaction
+-- >              (e.g., cargo booking or quotation request) has been
+-- >              accepted under conditions indicated in this message.
+-- >    CO     Confirmation of measurements
+-- >              Indication that the message contains the physical
+-- >              measurements on which the charges will be based.
+-- > #  NA     No acknowledgement needed
+-- >              Self explanatory.
+-- >    RE     Rejected
+-- >              Indication that the referenced offer or transaction
+-- >              (e.g., cargo booking or quotation request) is not
+-- >              accepted.
+simple4343 :: Parser Value
+simple4343 = simple "4343" (alphaNumeric `upTo` 3)
-- 
cgit v1.2.3