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

Correct Xero token DB saving

Browse source
This commit is contained in:
Rene Vergara 2022-09-08 10:52:32 -05:00
parent ec4fcd3fc8
commit 74ebb9d61a
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

5
src/Xero.hs
View file

@ -273,13 +273,8 @@ upsertToken t = do
let token = val t let token = val t
case token of case token of
Doc d -> do Doc d -> do
if isJust (t_id t)
then do
upsert (select ["address" =: t_address t] "xerotokens") d upsert (select ["address" =: t_address t] "xerotokens") d
findOne (select ["address" =: t_address t] "xerotokens") findOne (select ["address" =: t_address t] "xerotokens")
else do
insert_ "xerotokens" d
findOne (select ["address" =: t_address t] "xerotokens")
_ -> return Nothing _ -> return Nothing
findToken :: T.Text -> Action IO (Maybe Document) findToken :: T.Text -> Action IO (Maybe Document)