diff options
Diffstat (limited to 'lib/OwnTracks/Command.hs')
| -rw-r--r-- | lib/OwnTracks/Command.hs | 44 |
1 files changed, 21 insertions, 23 deletions
diff --git a/lib/OwnTracks/Command.hs b/lib/OwnTracks/Command.hs index 5468379..257d3e3 100644 --- a/lib/OwnTracks/Command.hs +++ b/lib/OwnTracks/Command.hs @@ -10,22 +10,20 @@ module OwnTracks.Command (Command(..)) 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.Configuration -import OwnTracks.Waypoint +import OwnTracks.Configuration +import OwnTracks.Waypoint data Command = Dump @@ -50,16 +48,16 @@ instance ToJSON Command where : "action" .= String action : others ) where action = case c of - Dump -> "dump" - GetStatus -> "status" - ReportSteps _ _ -> "reportSteps" - ReportLocation -> "reportLocation" - ClearWaypoints -> "clearWaypoints" - SetWaypoints _ -> "setWaypoints" + Dump -> "dump" + GetStatus -> "status" + ReportSteps _ _ -> "reportSteps" + ReportLocation -> "reportLocation" + ClearWaypoints -> "clearWaypoints" + SetWaypoints _ -> "setWaypoints" SetConfiguration _ -> "setConfiguration" - GetWaypoints -> "waypoints" + GetWaypoints -> "waypoints" others = case c of - ReportSteps f t -> [ "from" .= f, "to" .= t ] - SetWaypoints ws -> [ "waypoints" .= ws ] + ReportSteps f t -> [ "from" .= f, "to" .= t ] + SetWaypoints ws -> [ "waypoints" .= ws ] SetConfiguration c -> [ "configuration" .= c ] - _ -> [] + _ -> [] |