From e1919be03a7c5ef7489035290cb9e8572a013b9d Mon Sep 17 00:00:00 2001 From: Rene Vergara Date: Wed, 10 May 2023 10:52:25 -0500 Subject: [PATCH] Correct `xero` endpoint --- src/Xero.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/Xero.hs b/src/Xero.hs index 52fe641..009caf2 100644 --- 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]