From 260b7b83b0ec396bb880038f4c93f977af0056c5 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bensima.com>
Date: Tue, 16 Dec 2025 14:14:41 -0500
Subject: Fix hlint errors in Deploy modules

- Systemd: use list comprehension instead of if-then-else
- Manifest: use </> operator, replace case with maybe
- Deployer: use newtype, use flip removeService
- Caddy: use newtype for single-field types
---
 Omni/Deploy/Caddy.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Omni/Deploy/Caddy.hs')

diff --git a/Omni/Deploy/Caddy.hs b/Omni/Deploy/Caddy.hs
index de73a35..6cedf92 100644
--- a/Omni/Deploy/Caddy.hs
+++ b/Omni/Deploy/Caddy.hs
@@ -53,7 +53,7 @@ instance Aeson.ToJSON Route where
         "terminal" .= routeTerminal
       ]
 
-data RouteMatch = RouteMatch
+newtype RouteMatch = RouteMatch
   { matchHost :: [Text]
   }
   deriving (Show, Eq, Generic)
@@ -75,7 +75,7 @@ instance Aeson.ToJSON RouteHandler where
         "upstreams" .= handlerUpstreams
       ]
 
-data Upstream = Upstream
+newtype Upstream = Upstream
   { upstreamDial :: Text
   }
   deriving (Show, Eq, Generic)
-- 
cgit v1.2.3