From fbfa662922a2dcf34e8a2cf1eb020210de18c0af Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Apr 2026 00:09:44 +0200
Subject: Owntracks.{Configuration,Command,Waypoint}: init

---
 lib/OwnTracks/Status.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/OwnTracks/Status.hs')

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
-- 
cgit v1.2.3