ci: retry build

Signed-off-by: Cody Kaczynski <ckaczyns@akamai.com>

Author: cxdy

ui/app/src/Data/Receiver.elm

@@ -20,20 +20,20 @@ import Json.Encode as Encode
 
 type alias Receiver =
     { name : String
-    , labels : Dict String String
+    , labels : Maybe (Dict String String)
     }
 
 
 decoder : Decoder Receiver
 decoder =
     Decode.succeed Receiver
         |> required "name" Decode.string
-        |> optional "labels" (Decode.dict Decode.string) Dict.empty
+        |> optional "labels" (Decode.maybe (Decode.dict Decode.string)) Nothing
 
 
 encoder : Receiver -> Encode.Value
 encoder model =
     Encode.object
         [ ( "name", Encode.string model.name )
-        , ( "labels", Encode.dict identity Encode.string model.labels )
+        , ( "labels", Maybe.withDefault (Encode.object []) (Maybe.map (Encode.dict identity Encode.string) model.labels) )
         ]

ui/app/src/Views/AlertList/Updates.elm

@@ -3,6 +3,7 @@ port module Views.AlertList.Updates exposing (update)
 import Alerts.Api as Api
 import Browser.Navigation as Navigation
 import Data.AlertGroup exposing (AlertGroup)
+import Data.Receiver exposing (Receiver)
 import Dict
 import Set
 import Task
@@ -44,7 +45,7 @@ update msg ({ groupBar, alerts, filterBar, receiverBar, alertGroups } as model)
                                         |> Dict.toList
                                         |> List.map
                                             (\( labels, alerts_ ) ->
-                                                AlertGroup (Dict.fromList labels) { name = "unknown", labels = Dict.empty } alerts_
+                                                AlertGroup (Dict.fromList labels) (Receiver "unknown" Nothing) alerts_
                                             )
 
                                 newGroupBar =