wip gitlab: GetUserRepositories simplified

Author: Juan José Vázquez

core/src/main/scala/Gitlab.scala

@@ -45,11 +45,7 @@ object Gitlab {
       case GetRelease(slug: Slug, releaseId: ID, t: AccessToken) => ???
       case GetUserRepositories(t: AccessToken) =>
         def go(uri: String)(accum: List[Repo]): List[Repo] = {
-          val EntityWithMeta(repos, pagination) = fetchWithMeta[List[Repo]](uri) { uri =>
-            http4s.Request(
-              headers = Headers(Header("PRIVATE-TOKEN", t.value)),
-              uri = uri)
-          }.run
+          val EntityWithMeta(repos, pagination) = authFetchWithMeta[List[Repo]](uri, t).run
           val total = accum ++ repos
           pagination.nextPage.fold(total) { page =>
             val nextLink = pagination.links.getOrElse("next", cfg.repoEndpoint(page))
@@ -67,7 +63,6 @@ object Gitlab {
     private[this] def authFetch[A: EntityDecoder](uri: String, token: AccessToken): Task[A] =
       authFetchWithMeta(uri, token).map(_.entity)
 
-
     private[this] def authFetchWithMeta[A: EntityDecoder](uri: String, token: AccessToken): Task[EntityWithMeta[A]] =
       fetchWithMeta[A](uri) { uri =>
         http4s.Request(