change message envelopes and encoding, unify message delivery (#252)

* types and encodings for double ratchet integration

* upgrade stack resolver

* type classes for version agreement, encode/decode connection request links and E2E params with versioning

* encode/decode client parameters (version and DH key) in SMP queue URI using query string parameters

* restore support of the current SMP queue URI format

* update AMessage to only send queues in REPLY message (not the full connection request)

* new agent message evnvelopes (tests fail)

* new message envelopes - tests pass

* store fully encrypted messages before sending

* unify message delivery via DB queue (excluding confirmation and invitation)

* remove activateSecuredQueue

* linter hints

* remove comment

* export order

* save rachet-encrypted message, not per-queue encrypted

* delete message after it is accepted by the server, reduce message delivery interval for the tests

Co-authored-by: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>

src/Simplex/Messaging/Encoding/String.hs

@@ -16,6 +16,7 @@ import Data.ByteString.Char8 (ByteString)
 import qualified Data.ByteString.Char8 as B
 import Data.Char (isAlphaNum)
 import qualified Data.List.NonEmpty as L
+import Data.Word (Word16)
 import Simplex.Messaging.Parsers (parseAll)
 import Simplex.Messaging.Util ((<$?>))
 
@@ -51,6 +52,10 @@ instance StrEncoding a => StrEncoding (Maybe a) where
   strEncode = maybe "" strEncode
   strP = optional strP
 
+instance StrEncoding Word16 where
+  strEncode = B.pack . show
+  strP = A.decimal
+
 -- lists encode/parse as comma-separated strings
 instance StrEncoding a => StrEncoding [a] where
   strEncode = B.intercalate "," . map strEncode
@@ -58,12 +63,12 @@ instance StrEncoding a => StrEncoding [a] where
 
 instance StrEncoding a => StrEncoding (L.NonEmpty a) where
   strEncode = strEncode . L.toList
-  strP =
-    maybe (fail "empty list") pure . L.nonEmpty
-      =<< listItem `A.sepBy1'` A.char ','
+
+  -- relies on sepBy1 never returning an empty list
+  strP = L.fromList <$> listItem `A.sepBy1'` A.char ','
 
 listItem :: StrEncoding a => Parser a
-listItem = strDecode <$?> A.takeTill (== ',')
+listItem = parseAll strP <$?> A.takeTill (== ',')
 
 instance (StrEncoding a, StrEncoding b) => StrEncoding (a, b) where
   strEncode (a, b) = B.unwords [strEncode a, strEncode b]