owntracks: support returning commands

1 files changed, 2 insertions, 1 deletions

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."