diff options
Diffstat (limited to 'lib/OwnTracks.hs')
| -rw-r--r-- | lib/OwnTracks.hs | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/lib/OwnTracks.hs b/lib/OwnTracks.hs index 25b0ae9..c39a3bc 100644 --- a/lib/OwnTracks.hs +++ b/lib/OwnTracks.hs @@ -1,9 +1,9 @@ +{-# LANGUAGE ApplicativeDo #-} {-# LANGUAGE BlockArguments #-} {-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DerivingStrategies #-} {-# LANGUAGE DerivingVia #-} {-# LANGUAGE LambdaCase #-} -{-# LANGUAGE ApplicativeDo #-} module OwnTracks @@ -16,24 +16,22 @@ module OwnTracks ) where import Data.Aeson -import Data.Aeson.Types (Parser) -import Data.ByteString (ByteString) +import Data.Aeson.Types (Parser) +import Data.ByteString (ByteString) import Data.ByteString.Base64 -import Data.Functor ((<&>)) -import Data.Text (Text) -import qualified Data.Text as T -import Data.Text.Encoding (encodeUtf8) -import Data.Time ( - UTCTime, - defaultTimeLocale, - parseTimeM) +import Data.Functor ((<&>)) +import Data.Text (Text) +import qualified Data.Text as T +import Data.Text.Encoding (encodeUtf8) +import Data.Time (UTCTime, defaultTimeLocale, + parseTimeM) import Database.Persist -import GHC.Generics (Generic) +import GHC.Generics (Generic) +import OwnTracks.Command +import OwnTracks.Configuration import OwnTracks.Location import OwnTracks.Status -import OwnTracks.Configuration -import OwnTracks.Command import OwnTracks.Waypoint data Message = @@ -47,8 +45,8 @@ instance FromJSON Message where parseJSON v@(Object o) = do ty :: Text <- o .: "_type" case ty of - "location" -> MsgLocation <$> parseJSON v - "status" -> MsgStatus <$> parseJSON v + "location" -> MsgLocation <$> parseJSON v + "status" -> MsgStatus <$> parseJSON v "configuration" -> MsgConfig <$> parseJSON v - "waypoints" -> MsgWaypoints <$> o .: "waypoints" - _ -> fail "unknown _type of owntracks message." + "waypoints" -> MsgWaypoints <$> o .: "waypoints" + _ -> fail "unknown _type of owntracks message." |