From 5fa550010cd0d9293d253d9528a4029db26ced54 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 2 May 2026 14:31:33 +0200
Subject: owntracks: support returning commands

---
 lib/OwnTracks.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/OwnTracks.hs')

diff --git a/lib/OwnTracks.hs b/lib/OwnTracks.hs
index c39a3bc..e9bb011 100644
--- a/lib/OwnTracks.hs
+++ b/lib/OwnTracks.hs
@@ -20,6 +20,7 @@ import           Data.Aeson.Types        (Parser)
 import           Data.ByteString         (ByteString)
 import           Data.ByteString.Base64
 import           Data.Functor            ((<&>))
+import           Data.Maybe              (fromMaybe)
 import           Data.Text               (Text)
 import qualified Data.Text               as T
 import           Data.Text.Encoding      (encodeUtf8)
@@ -48,5 +49,5 @@ instance FromJSON Message where
       "location"      -> MsgLocation <$> parseJSON v
       "status"        -> MsgStatus <$> parseJSON v
       "configuration" -> MsgConfig <$> parseJSON v
-      "waypoints"     -> MsgWaypoints <$> o .: "waypoints"
+      "waypoints"     -> MsgWaypoints <$> (fmap (fromMaybe []) (o .:? "waypoints"))
       _               -> fail "unknown _type of owntracks message."
-- 
cgit v1.2.3