chore: stuff

This commit is contained in:
orion kindel 2023-11-27 15:42:33 -06:00
parent a9d690075e
commit d4b937d0f6
Signed by: orion
GPG Key ID: 6D4165AE4C928719
2 changed files with 3 additions and 1 deletions

View File

@ -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

View File

@ -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