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