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

1 files changed, 2 insertions, 2 deletions

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)