diff options
Diffstat (limited to 'lib/OwnTracks/Status.hs')
| -rw-r--r-- | lib/OwnTracks/Status.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/OwnTracks/Status.hs b/lib/OwnTracks/Status.hs index 83b5956..c87e28b 100644 --- a/lib/OwnTracks/Status.hs +++ b/lib/OwnTracks/Status.hs @@ -55,6 +55,15 @@ instance FromJSON Status where (.:??) (Just a) = (.:?) a instance ToJSON Status where + toJSON Status{..} = object + [ "_id" .= statusId + , "hib" .= statusCanHibernate + , "bo" .= statusBatteryOptimizations + , "loc" .= statusLocationPermission + , "ps" .= statusPhonePowerSaveMode + , "wifi" .= statusWifiOnOff + ] + toEncoding Status{..} = pairs ("_id" .= statusId <> "hib" .= statusCanHibernate |