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

Add debugging

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

3
src/ZGoBackend.hs
View file

@ -2016,8 +2016,9 @@ scanTxNative config pipe = do
case zM of case zM of
Right m -> do Right m -> do
case m_orderId m of case m_orderId m of
Nothing -> return () Nothing -> print "Not an order Tx"
Just orderId -> do Just orderId -> do
print orderId
o <- access p master dbName $ findOrderById (T.unpack orderId) o <- access p master dbName $ findOrderById (T.unpack orderId)
let xOrder = o >>= (cast' . Doc) let xOrder = o >>= (cast' . Doc)
case xOrder of case xOrder of