IP Address in Runner is optional

L7R7 · Aug 21, 2024 · 6ebfa74 · 6ebfa74
1 parent 5906a60
commit 6ebfa74
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/src/Core/Runners.hs b/src/Core/Runners.hs
@@ -31,7 +31,7 @@ data Runner = Runner
   { runnerId :: Id Runner,
     runnerName :: Maybe (Name Runner),
     runnerDescription :: Description,
-    runnerIpAddress :: IpAddress,
+    runnerIpAddress :: Maybe IpAddress,
     runnerTagList :: [Tag]
   }
   deriving stock (Eq, Generic)

diff --git a/src/Ports/Inbound/HTTP/Runners/Html.hs b/src/Ports/Inbound/HTTP/Runners/Html.hs
@@ -112,8 +112,7 @@ runnerToHtml Runner {..} =
     <> toHtml runnerId
     <> " - "
     <> toHtml runnerDescription
-    <> " - @"
-    <> toHtml runnerIpAddress
+    <> foldMap (\ip -> " - @" <> toHtml ip) runnerIpAddress
     <> " -"
     <> foldMap (\t -> " #" <> toHtml t) runnerTagList