Canvas LMS pagingation problem

I am trying to retrieve the gradebook from Canvas LMS. I asked ChatGPT to generate the code, and the code successfully retrieved the first page. However, the code which includes pagination gives this error.

Expression.Error: We cannot convert a value of type Binary to type Record.
Details:
Value=[Binary]
Type=[Type] 

and this is the code

let
// Define Canvas API information
BaseUrl = "https://<canvas-domain>/api/v1/",
CourseId = "<course_id>", // Replace with the course ID
Endpoint = "courses/" & CourseId & "/enrollments",
ApiToken = "<your_api_token>", // Replace with your API token

// Function to retrieve a single page of data
GetPage = (url as text) as table =>
let
Response = Web.Contents(url, [
Headers = [
Authorization = "Bearer " & ApiToken
]
]),
// Convert binary response to JSON
ResponseJson = Json.Document(Response),
// Convert JSON to a table
Data = Table.FromList(ResponseJson, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
ExpandedData = Table.ExpandRecordColumn(Data, "Column1", {"user_id", "course_id", "grades", "role", "user"}, {"User ID", "Course ID", "Grades", "Role", "User"})
in
ExpandedData,

// Function to retrieve next page URL
GetNextPageUrl = (responseHeaders as record) =>
let
// Extract the Link header
LinkHeader = Record.FieldOrDefault(responseHeaders, "Link", ""),
// Debugging step: Output the raw Link header for inspection
DebugLinkHeader = LinkHeader,
// Parse the next page URL from the Link header
NextUrl = try Text.Middle(Text.BetweenDelimiters(LinkHeader, "<", ">")) otherwise null
in
NextUrl,

// Function to retrieve all pages
GetAllPages = (url as text) as table =>
let
InitialPage = GetPage(url),
FetchPages = List.Generate(
() => [CurrentUrl = url, CurrentPage = InitialPage],
each [CurrentUrl] <> null,
each [
CurrentUrl = GetNextPageUrl(Web.Contents([CurrentUrl])),
CurrentPage = if [CurrentUrl] <> null then GetPage([CurrentUrl]) else null
],
each [CurrentPage]
),
AllPages = Table.Combine(FetchPages)
in
AllPages,

// Full API URL
ApiUrl = BaseUrl & Endpoint,

// Retrieve all data
GradebookData = GetAllPages(ApiUrl),

// Expand nested fields (e.g., grades and user information)
ExpandedGrades = Table.ExpandRecordColumn(GradebookData, "Grades", {"current_score", "final_score", "current_grade", "final_grade"}, {"Current Score", "Final Score", "Current Grade", "Final Grade"}),
ExpandedUser = Table.ExpandRecordColumn(ExpandedGrades, "User", {"id", "name", "sortable_name", "email"}, {"User ID", "Name", "Sortable Name", "Email"}),

// Remove unnecessary columns and reorder for clarity
FinalTable = Table.SelectColumns(ExpandedUser, {"User ID", "Name", "Sortable Name", "Email", "Current Score", "Final Score", "Current Grade", "Final Grade", "Role"})
in
FinalTable

I did some tests, and the error occurred when calling the GetNextPage( ) function. I'm unsure how to troubleshoot within the user function. Can anyone suggest what might be causing the error?