Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Unified Address support #8

Merged
pitmutt merged 61 commits from dev18 into master 2023-10-28 12:24:28 +00:00
Conversation 0 Commits 61 Files changed 11 +5 -1
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 19b352c381 - Show all commits

6
src/ZGoBackend.hs
View file

@ -2023,7 +2023,11 @@ scanTxNative config pipe = do
let xOrder = o >>= (cast' . Doc) let xOrder = o >>= (cast' . Doc)
case xOrder of case xOrder of
Nothing -> error "Failed to retrieve order from database" Nothing -> error "Failed to retrieve order from database"
Just xO -> Just xO -> do
print $ qtotalZec xO
print $ zamount x
print z
print $ qaddress xO
when when
(not (qpaid xO) && (not (qpaid xO) &&
qtotalZec xO == zamount x && z == qaddress xO) $ do qtotalZec xO == zamount x && z == qaddress xO) $ do