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