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

Correct xero endpoint

Browse source
This commit is contained in:
Rene Vergara 2023-05-10 10:52:25 -05:00
parent 55d30b8b0f
commit e1919be03a
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Xero.hs
View file

@ -30,8 +30,7 @@ data Xero =
deriving (Eq, Show) deriving (Eq, Show)
instance ToJSON Xero where instance ToJSON Xero where
toJSON (Xero i cI s) = toJSON (Xero i cI s) = object ["_id" .= show i, "clientId" .= cI]
object ["_id" .= show i, "clientId" .= cI, "clientSecret" .= s]
instance Val Xero where instance Val Xero where
val (Xero i cI s) = Doc ["_id" =: i, "clientId" =: cI, "clientSecret" =: s] val (Xero i cI s) = Doc ["_id" =: i, "clientId" =: cI, "clientSecret" =: s]