forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Dummy routes for repo team members

Browse source
This commit is contained in:
fr33domlover 2016-05-29 14:13:25 +00:00
parent c0e8ed0d2e
commit 2d4fb85fca
3 changed files with 35 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
config/routes
View file

@ -66,6 +66,9 @@
/s/#ShrIdent/r/#RpIdent/s/+Texts RepoSourceR GET /s/#ShrIdent/r/#RpIdent/s/+Texts RepoSourceR GET
/s/#ShrIdent/r/#RpIdent/c RepoHeadChangesR GET /s/#ShrIdent/r/#RpIdent/c RepoHeadChangesR GET
/s/#ShrIdent/r/#RpIdent/c/#Text RepoChangesR GET /s/#ShrIdent/r/#RpIdent/c/#Text RepoChangesR GET
/s/#ShrIdent/r/#RpIdent/d RepoDevsR GET POST
/s/#ShrIdent/r/#RpIdent/d/!new RepoDevNewR GET
/s/#ShrIdent/r/#RpIdent/d/#ShrIdent RepoDevR GET DELETE POST
/s/#ShrIdent/r/#RpIdent/_darcs/+Texts DarcsDownloadR GET /s/#ShrIdent/r/#RpIdent/_darcs/+Texts DarcsDownloadR GET

8
src/Vervis/Foundation.hs
View file

@ -138,6 +138,9 @@ instance Yesod App where
(ReposR shar , True) -> person shar (ReposR shar , True) -> person shar
(RepoNewR user , _ ) -> person user (RepoNewR user , _ ) -> person user
(RepoR shar _ , True) -> person shar (RepoR shar _ , True) -> person shar
(RepoDevsR shr _rp , _ ) -> person shr
(RepoDevNewR shr _rp , _ ) -> person shr
(RepoDevR shr _rp _dev , _ ) -> person shr
(ProjectsR shar , True) -> person shar (ProjectsR shar , True) -> person shar
(ProjectNewR user , _ ) -> person user (ProjectNewR user , _ ) -> person user
@ -317,6 +320,11 @@ instance YesodBreadcrumbs App where
RepoChangesR shar repo ref -> ( ref RepoChangesR shar repo ref -> ( ref
, Just $ RepoHeadChangesR shar repo , Just $ RepoHeadChangesR shar repo
) )
RepoDevsR shr rp -> ("Team", Just $ RepoR shr rp)
RepoDevNewR shr rp -> ("New", Just $ RepoDevsR shr rp)
RepoDevR shr rp dev -> ( shr2text dev
, Just $ RepoDevsR shr rp
)
DarcsDownloadR _ _ _ -> ("", Nothing) DarcsDownloadR _ _ _ -> ("", Nothing)

24
src/Vervis/Handler/Repo.hs
View file

@ -23,6 +23,12 @@ module Vervis.Handler.Repo
, getRepoSourceR , getRepoSourceR
, getRepoHeadChangesR , getRepoHeadChangesR
, getRepoChangesR , getRepoChangesR
, getRepoDevsR
, postRepoDevsR
, getRepoDevNewR
, getRepoDevR
, deleteRepoDevR
, postRepoDevR
, getDarcsDownloadR , getDarcsDownloadR
) )
where where
@ -196,3 +202,21 @@ getRepoChangesR shar repo ref = do
case repoVcs repository of case repoVcs repository of
VCSDarcs -> getDarcsRepoChanges shar repo ref VCSDarcs -> getDarcsRepoChanges shar repo ref
VCSGit -> getGitRepoChanges shar repo ref VCSGit -> getGitRepoChanges shar repo ref
getRepoDevsR :: ShrIdent -> RpIdent -> Handler Html
getRepoDevsR shr rp = error "Not implemented"
postRepoDevsR :: ShrIdent -> RpIdent -> Handler Html
postRepoDevsR shr rp = error "Not implemented"
getRepoDevNewR :: ShrIdent -> RpIdent -> Handler Html
getRepoDevNewR shr rp = error "Not implemented"
getRepoDevR :: ShrIdent -> RpIdent -> ShrIdent -> Handler Html
getRepoDevR shr rp dev = error "Not implemented"
deleteRepoDevR :: ShrIdent -> RpIdent -> ShrIdent -> Handler Html
deleteRepoDevR shr rp dev = error "Not implemented"
postRepoDevR :: ShrIdent -> RpIdent -> ShrIdent -> Handler Html
postRepoDevR shr rp dev = error "Not implemented"