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

Correct viewkey field

Browse source
This commit is contained in:
Rene Vergara 2022-07-20 10:24:39 -05:00
parent 00f2f2003a
commit 27a2fab424
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Owner.hs
View file

@ -71,7 +71,7 @@ instance ToJSON Owner where
, "invoices" .= inv
, "expiration" .= eTs
, "payconf" .= pc
, "viewKey" .= vk
, "viewkey" .= vk
]
Nothing ->
object
@ -98,7 +98,7 @@ instance ToJSON Owner where
, "invoices" .= inv
, "expiration" .= eTs
, "payconf" .= pc
, "viewKey" .= vk
, "viewkey" .= vk
]
instance FromJSON Owner where
@ -127,7 +127,7 @@ instance FromJSON Owner where
inv <- obj .: "invoices"
ets <- obj .: "expiration"
pc <- obj .:? "payconf"
vk <- obj .:? "viewKey"
vk <- obj .:? "viewkey"
pure $
Owner
(if not (null i)