From d4b937d0f6727a441354e14ecb6171cb8278d46f Mon Sep 17 00:00:00 2001 From: Orion Kindel Date: Mon, 27 Nov 2023 15:42:33 -0600 Subject: [PATCH] chore: stuff --- spago.yaml | 2 ++ src/Gitea.Repo.purs | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/spago.yaml b/spago.yaml index b019fde..722593b 100644 --- a/spago.yaml +++ b/spago.yaml @@ -1,6 +1,7 @@ package: dependencies: - aff + - arrays - effect - either - exceptions @@ -11,6 +12,7 @@ package: - node-buffer - prelude - simple-json + - tailrec - transformers - tuples - typelevel-prelude diff --git a/src/Gitea.Repo.purs b/src/Gitea.Repo.purs index 52f3ed5..7c7a9f5 100644 --- a/src/Gitea.Repo.purs +++ b/src/Gitea.Repo.purs @@ -29,7 +29,7 @@ reposURL (Username owner) (RepoName repo) = build <$> ask repoTopicsPageURL :: forall m. Monad m => Username -> RepoName -> { page :: Int, limit :: Int } -> GiteaT m URL -repoTopicsPageURL o repo {page, limit} = (\repos -> repos / "topics" ? "limit" /\ show limit & "page" /\ show page) <$> reposURL o repo +repoTopicsPageURL o repo { page, limit } = (\repos -> repos / "topics" ? "limit" /\ show limit & "page" /\ show page) <$> reposURL o repo repoTopicsOneURL :: forall m. Monad m => Username -> RepoName -> TopicName -> GiteaT m URL repoTopicsOneURL o repo (TopicName topic) = (\repos -> repos / "topics" / topic) <$> reposURL o repo