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

Continue debugging

Browse source
This commit is contained in:
Rene Vergara 2023-10-13 14:59:14 -05:00
parent 4558dfb8da
commit 19b352c381
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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