diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index ab9bf8d..9604fe4 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -325,7 +325,7 @@ zToZGoTx (ZcashTx t a aZ bh bt c conf m) = do ".*ZGOp::([0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{12}).*" let y = mkRegex - ".*MSG\\s(zs[a-z0-9]{76}).*ZGO::([0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{12}).*" + ".*MSG\\s(zs[a-z0-9]{76})\\sZGO::([0-9a-fA-F]{8}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{4}\\b-[0-9a-fA-F]{12}).*" let reg = matchAllText r (T.unpack m) let reg2 = matchAllText p (T.unpack m) let reg3 = matchAllText y (T.unpack m) @@ -342,8 +342,8 @@ zToZGoTx (ZcashTx t a aZ bh bt c conf m) = do else do if not (null reg3) then do - let sess = T.pack (fst $ head reg ! 2) - let nAddy = T.pack (fst $ head reg ! 1) + let sess = T.pack (fst $ head reg3 ! 2) + let nAddy = T.pack (fst $ head reg3 ! 1) ZGoTx Nothing nAddy sess conf bt a t m else ZGoTx Nothing "" "" conf bt a t m