Improve payment confirmation
This commit is contained in:
parent
e35304f030
commit
f21700f88b
2 changed files with 6 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue