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

Improve payment confirmation

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Owner.hs
View file

@ -366,8 +366,12 @@ instance ToJSON OwnerSettings where
, "expiration" .= e , "expiration" .= e
, "payconf" .= pc , "payconf" .= pc
, "crmToken" .= cT , "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 -- Helper Functions
getOwnerSettings :: Owner -> OwnerSettings getOwnerSettings :: Owner -> OwnerSettings

1
src/ZGoBackend.hs
View file

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