Improve payment confirmation

This commit is contained in:
Rene Vergara 2023-06-19 16:58:39 -05:00
parent e35304f030
commit f21700f88b
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
2 changed files with 6 additions and 1 deletions

View file

@ -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

View file

@ -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