Correct `xero` endpoint

2023-05-10 10:52:25 -05:00 · 2023-05-10 10:52:25 -05:00 · e1919be03a
parent 55d30b8b0f
commit e1919be03a
1 changed files with 1 additions and 2 deletions
--- a/src/Xero.hs
+++ b/src/Xero.hs
@ -30,8 +30,7 @@ data Xero =
  deriving (Eq, Show)

 instance ToJSON Xero where
-  toJSON (Xero i cI s) =
-    object ["_id" .= show i, "clientId" .= cI, "clientSecret" .= s]
+  toJSON (Xero i cI s) = object ["_id" .= show i, "clientId" .= cI]

 instance Val Xero where
  val (Xero i cI s) = Doc ["_id" =: i, "clientId" =: cI, "clientSecret" =: s]