diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 2c7b787..112ce2a 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -2016,8 +2016,9 @@ scanTxNative config pipe = do case zM of Right m -> do case m_orderId m of - Nothing -> return () + Nothing -> print "Not an order Tx" Just orderId -> do + print orderId o <- access p master dbName $ findOrderById (T.unpack orderId) let xOrder = o >>= (cast' . Doc) case xOrder of