Add debugging

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