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

Modify xero endpoints

Browse source
This commit is contained in:
Rene Vergara 2023-06-20 13:27:53 -05:00
parent f469ed6763
commit aa3794b504
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 29 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
src/ZGoBackend.hs
View file

@ -628,35 +628,29 @@ routes pipe config = do
])
get "/api/xerotoken" $ do
code <- param "code"
address <- param "address"
session <- param "session"
user <- liftAndCatchIO $ run (findUser session)
xeroConfig <- liftAndCatchIO $ run findXero
case xeroConfig of
Nothing -> status noContent204
Just x -> do
let xConfig = cast' (Doc x)
case xConfig of
case cast' . Doc =<< xeroConfig of
Nothing -> status noContent204
Just c -> do
case cast' . Doc =<< user of
Nothing -> status unauthorized401
Just u -> do
res <-
liftAndCatchIO $
requestXeroToken pipe (c_dbName config) c code address
requestXeroToken pipe (c_dbName config) c code $ uaddress u
if res
then status ok200
else status noContent204
get "/api/invdata" $ do
get "/invdata" $ do
inv <- param "inv"
oAddress <- param "address"
xeroConfig <- liftAndCatchIO $ run findXero
case xeroConfig of
case cast' . Doc =<< xeroConfig of
Nothing -> do
status noContent204
text "Xero App credentials not found"
Just x -> do
let xConfig = cast' (Doc x)
case xConfig of
Nothing -> do
status noContent204
text "Xero App credentials corrupted"
text "Xero App credentials not available"
Just c -> do
res <-
liftAndCatchIO $
@ -972,7 +966,7 @@ routes pipe config = do
[ "message" .= ("Owner found!" :: String)
, "owner" .= getOwnerSettings o
])
get "/api/ownerid" $ do
get "/ownerid" $ do
id <- param "id"
owner <- liftAndCatchIO $ run (findOwnerById id)
case owner of
@ -986,23 +980,7 @@ routes pipe config = do
Web.Scotty.json
(object
[ "message" .= ("Owner found!" :: String)
, "owner" .=
object
[ "_id" .= (maybe "" show $ o_id q :: String)
, "address" .= oaddress q
, "name" .= oname q
, "currency" .= ocurrency q
, "tax" .= otax q
, "taxValue" .= otaxValue q
, "vat" .= ovat q
, "vatValue" .= ovatValue q
, "paid" .= opaid q
, "zats" .= ozats q
, "invoices" .= oinvoices q
, "expiration" .= oexpiration q
, "payconf" .= opayconf q
, "crmToken" .= ocrmToken q
]
, "owner" .= getOwnerSettings q
])
--Upsert owner to DB
post "/api/owner" $ do