diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 448fff5..e590bbe 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -2023,7 +2023,11 @@ scanTxNative config pipe = do let xOrder = o >>= (cast' . Doc) case xOrder of 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 (not (qpaid xO) && qtotalZec xO == zamount x && z == qaddress xO) $ do