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

Improve PIN send

Browse source
This commit is contained in:
Rene Vergara 2023-10-10 11:12:58 -05:00
parent a2654a6f01
commit f5dbde0ed6
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/ZGoBackend.hs
View file

@ -372,12 +372,7 @@ listCountries :: Action IO [Document]
listCountries = rest =<< find (select [] "countries") listCountries = rest =<< find (select [] "countries")
sendPin :: sendPin ::
BS.ByteString BS.ByteString -> BS.ByteString -> T.Text -> T.Text -> T.Text -> IO String
-> BS.ByteString
-> T.Text
-> T.Text
-> T.Text
-> Action IO String
sendPin nodeUser nodePwd nodeAddress addr pin = do sendPin nodeUser nodePwd nodeAddress addr pin = do
let pd = let pd =
[ Data.Aeson.String nodeAddress [ Data.Aeson.String nodeAddress
@ -414,7 +409,7 @@ addUser nodeUser nodePwd p db node (Just tx) = do
isNew <- liftIO $ isUserNew p db tx isNew <- liftIO $ isUserNew p db tx
when isNew $ do when isNew $ do
newPin <- liftIO generatePin newPin <- liftIO generatePin
_ <- sendPin nodeUser nodePwd node (address tx) (T.pack newPin) _ <- liftIO $ sendPin nodeUser nodePwd node (address tx) (T.pack newPin)
let pinHash = let pinHash =
BLK.hash BLK.hash
[ BA.pack . BS.unpack . C.pack . T.unpack $ [ BA.pack . BS.unpack . C.pack . T.unpack $