Stopping when looping through a paginated API feed

My solution:

Function "Get JSON" (which actually returns a list)

let 
    Source = (page as number) as list =>
let
    URL = Text.Combine({
        "https://some.url&page=",
        Number.ToText(page)
    }),
    Response = Web.Contents(
        URL
    ),
    Source = Json.Document(Response)
in 
    Source
in
    Source

Query

let
    Source = List.Combine(
        List.Generate(
            () => [page = 1, Func=#"Get JSON"(1)], // initial
            each List.Count([Func]) > 0, // condition
            each [
                page = [page]+1,
                Func = #"Get JSON"([page])
            ], // next
            each [Func] // selector
        )
    ),
    #"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
in
    #"Converted to Table"

 It starts calling the "Get JSON" function starting with page=1 and going as long as the function returns at least 1 item.