From 849f1d9120d3e5dbe956bef1cbc6790f6b298c0d Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 11 May 2023 16:46:47 -0500
Subject: [PATCH] Fix bug for parsing YWallet memos

---
 src/ZGoTx.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/ZGoTx.hs b/src/ZGoTx.hs
index 95278f8..9c95872 100644
--- a/src/ZGoTx.hs
+++ b/src/ZGoTx.hs
@@ -119,6 +119,7 @@ type Parser = Parsec Void T.Text
 
 pSession :: Parser MemoToken
 pSession = do
+  optional spaceChar
   string "ZGO"
   pay <- optional $ char 'p'
   string "::"
@@ -142,9 +143,7 @@ pSaplingAddress = do
 pMsg :: Parser MemoToken
 pMsg = do
   Msg . T.pack <$>
-    some
-      (alphaNumChar <|> punctuationChar <|> symbolChar <|>
-       charCategory OtherSymbol)
+    some (alphaNumChar <|> punctuationChar <|> charCategory OtherSymbol)
 
 pMemo :: Parser MemoToken
 pMemo = do