TaskProblem.elm

-- The answer is always traverse
-- https://impurepics.com/posts/2020-10-03-always-traverse.html
Task.maybe : (a -> Task x b) -> Maybe a -> Task x (Maybe b)
Task.maybe toTask maybe =
    case maybe of
        Nothing ->
            Task.succeed Nothing

        Just input ->
            toTask input


enrichWithThemes : { inherited : Bool } -> Branding -> Task x ( Branding, Theme )
enrichWithThemes { inherited } branding =
    UserGroupBranding.getBrandingThemesTask { userGroupId = params.userGroupId, inherited = inherited }
        |> Task.map (\themes -> ( branding, themes ))


enrichBranding : Inheritance Branding -> Task Http.Error (Inheritance ( Branding, Themes ))
enrichBranding intermediate =
    Task.map2
        (\branding parentBranding ->
            { ownValue = branding
            , inheritableValue = parentBranding
            , isInherited = intermediate.isInherited
            }
        )
        (intermediate.ownValue
            |> Task.maybe (enrichWithThemes { inherited = False })
        )
        (intermediate.inheritableValue
            |> Task.maybe (enrichWithThemes { inherited = True })
        )