diff options
| author | stuebinm | 2026-04-16 00:09:44 +0200 |
|---|---|---|
| committer | stuebinm | 2026-04-16 01:18:19 +0200 |
| commit | fbfa662922a2dcf34e8a2cf1eb020210de18c0af (patch) | |
| tree | 5acc0ee9a3e0bd290da9330bf2f46e6ea68bda23 /lib/OwnTracks/Status.hs | |
| parent | 2f7666c1a8d6b06718f58e1327d2e235c0d2d98d (diff) | |
Owntracks.{Configuration,Command,Waypoint}: init
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 |