Improve payment confirmation

src/Owner.hs

@@ -366,8 +366,12 @@ instance ToJSON OwnerSettings where
       , "expiration" .= e
       , "payconf" .= pc
       , "crmToken" .= cT
-      , "viewkey" .= (T.take 8 vK <> "...." <> T.takeEnd 8 vK)
+      , "viewkey" .= keyObfuscate vK
       ]
+    where
+      keyObfuscate s
+        | s == "" = ""
+        | otherwise = T.take 8 s <> "...." <> T.takeEnd 8 s
 
 -- Helper Functions
 getOwnerSettings :: Owner -> OwnerSettings

src/ZGoBackend.hs

@@ -1442,6 +1442,7 @@ scanPayments config pipe = do
       mapM_ (findPaidOrders config pipe) validShopAddresses
       where findPaidOrders :: Config -> Pipe -> T.Text -> IO ()
             findPaidOrders c p z = do
+              print z
               paidTxs <- listTxs (c_nodeUser c) (c_nodePwd c) z 5
               case paidTxs of
                 Right txs -> do