From d07ce0b8f494f5df23287e96309615294920d4d9 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Fri, 4 Feb 2022 08:15:25 +0000
Subject: [PATCH] use 8 byte characters, as encoding is handled elsewhere

---
 src/Simplex/Chat/Mobile.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Simplex/Chat/Mobile.hs b/src/Simplex/Chat/Mobile.hs
index cdcf40cdd..e5bf539ae 100644
--- a/src/Simplex/Chat/Mobile.hs
+++ b/src/Simplex/Chat/Mobile.hs
@@ -40,18 +40,18 @@ foreign export ccall "chat_recv_msg" cChatRecvMsg :: StablePtr ChatController ->
 
 -- | creates or connects to chat store
 cChatInitStore :: CString -> IO (StablePtr ChatStore)
-cChatInitStore fp = peekCString fp >>= chatInitStore >>= newStablePtr
+cChatInitStore fp = peekCAString fp >>= chatInitStore >>= newStablePtr
 
 -- | returns JSON in the form `{"user": <user object>}` or `{}` in case there is no active user (to show dialog to enter displayName/fullName)
 cChatGetUser :: StablePtr ChatStore -> IO CJSONString
-cChatGetUser cc = deRefStablePtr cc >>= chatGetUser >>= newCString
+cChatGetUser cc = deRefStablePtr cc >>= chatGetUser >>= newCAString
 
 -- | accepts Profile JSON, returns JSON `{"user": <user object>}` or `{"error": "<error>"}`
 cChatCreateUser :: StablePtr ChatStore -> CJSONString -> IO CJSONString
 cChatCreateUser cPtr profileCJson = do
   c <- deRefStablePtr cPtr
-  p <- peekCString profileCJson
-  newCString =<< chatCreateUser c p
+  p <- peekCAString profileCJson
+  newCAString =<< chatCreateUser c p
 
 -- | this function starts chat - it cannot be started during initialization right now, as it cannot work without user (to be fixed later)
 cChatStart :: StablePtr ChatStore -> IO (StablePtr ChatController)
@@ -61,12 +61,12 @@ cChatStart st = deRefStablePtr st >>= chatStart >>= newStablePtr
 cChatSendCmd :: StablePtr ChatController -> CString -> IO CJSONString
 cChatSendCmd cPtr cCmd = do
   c <- deRefStablePtr cPtr
-  cmd <- peekCString cCmd
-  newCString =<< chatSendCmd c cmd
+  cmd <- peekCAString cCmd
+  newCAString =<< chatSendCmd c cmd
 
 -- | receive message from chat (blocking)
 cChatRecvMsg :: StablePtr ChatController -> IO CJSONString
-cChatRecvMsg cc = deRefStablePtr cc >>= chatRecvMsg >>= newCString
+cChatRecvMsg cc = deRefStablePtr cc >>= chatRecvMsg >>= newCAString
 
 mobileChatOpts :: ChatOpts
 mobileChatOpts =