From 2c684868ed9b3011033d5ec265dd9f891fe791b7 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Apr 2026 01:27:50 +0200
Subject: lib: formatter run

---
 lib/OwnTracks/Command.hs  | 44 +++++++++++++++++++++-----------------------
 lib/OwnTracks/Location.hs |  5 +----
 2 files changed, 22 insertions(+), 27 deletions(-)

(limited to 'lib/OwnTracks')

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 ]
-            _ -> []
+            _                  -> []
diff --git a/lib/OwnTracks/Location.hs b/lib/OwnTracks/Location.hs
index 987de73..6a0fbde 100644
--- a/lib/OwnTracks/Location.hs
+++ b/lib/OwnTracks/Location.hs
@@ -17,10 +17,7 @@ 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.Time              (UTCTime, defaultTimeLocale, parseTimeM)
 import           Database.Persist
 import           GHC.Generics           (Generic)
 
-- 
cgit v1.2.3