thunderstrike/purescript-gitea
thunderstrike/purescript-gitea
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: url bug

Browse Source
This commit is contained in:
bingus 2023-11-28 12:16:47 -06:00
parent 487c4e9953
commit 2d932a22a0
Signed by: orion
GPG Key ID: 6D4165AE4C928719
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Gitea.Repo.BranchProtections.purs
View File

@ -17,10 +17,10 @@ import Simple.JSON (class WriteForeign)
import Type.Row.Subset (class Subset) import Type.Row.Subset (class Subset)
branchProtectionURL :: forall m. Monad m => Username -> RepoName -> GiteaT m URL branchProtectionURL :: forall m. Monad m => Username -> RepoName -> GiteaT m URL
branchProtectionURL (Username owner) (RepoName repo) = (\{ baseURI } -> baseURI / "repos" / owner / repo) <$> ask branchProtectionURL (Username owner) (RepoName repo) = (\{ baseURI } -> baseURI / "repos" / owner / repo / "branch_protections") <$> ask
branchProtectionOneURL :: forall m. Monad m => Username -> RepoName -> BranchProtectionName -> GiteaT m URL branchProtectionOneURL :: forall m. Monad m => Username -> RepoName -> BranchProtectionName -> GiteaT m URL
branchProtectionOneURL (Username owner) (RepoName repo) (BranchProtectionName rule) = (\{ baseURI } -> baseURI / "repos" / owner / repo / "branch_protections" / rule) <$> ask branchProtectionOneURL o r (BranchProtectionName rule) = (\base -> base / rule) <$> branchProtectionURL o r
get :: forall m. MonadAff m => Username -> RepoName -> BranchProtectionName -> GiteaT m (Record BranchProtection) get :: forall m. MonadAff m => Username -> RepoName -> BranchProtectionName -> GiteaT m (Record BranchProtection)
get u r b = do get u r b = do