ComplexApi.elm

type alias OriginalFoo =
    { barText : Maybe String
    , mustNum : Int
    }


type alias Foo =
    { barText : String
    , mustNum : Int
    }


type alias Xxx =
    { barText : String
    }


getFoo : Task x Foo
getFoo =
    getOriginalFoo
        |> Task.andThen
            (\{ barText, mustNum } ->
                case barText of
                    Just t ->
                        Task.succeed (Foo t mustNum)

                    Nothing ->
                        getXxx
                            |> Task.map
                                (\x ->
                                    Foo x.barText mustNum
                                )
            )


getOriginalFoo : Task x OriginalFoo
getOriginalFoo =
    Debug.todo ""


getXxx : Task x Xxx
getXxx =
    Debug.todo ""