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 +2 -1
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit a3eb5d29ee - Show all commits

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