forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Dummy git upload-pack request POST handler

Browse source
This commit is contained in:
fr33domlover 2016-04-23 18:33:41 +00:00
parent 19471d4ca2
commit bf355de715
2 changed files with 25 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
config/routes
View file

@ -51,6 +51,7 @@
/u/#Text/r/#Text/c RepoCommitsR GET /u/#Text/r/#Text/c RepoCommitsR GET
/u/#Text/r/#Text/git/info/refs GitRefDiscoverR GET /u/#Text/r/#Text/git/info/refs GitRefDiscoverR GET
/u/#Text/r/#Text/git/git-upload-pack GitUploadRequestR POST
-- /u/#Text/p/#Text/t TicketsR GET -- /u/#Text/p/#Text/t TicketsR GET
-- /u/#Text/p/#Text/t/#TicketId TicketR GET -- /u/#Text/p/#Text/t/#TicketId TicketR GET

4
src/Vervis/Handler/Git.hs
View file

@ -15,6 +15,7 @@
module Vervis.Handler.Git module Vervis.Handler.Git
( getGitRefDiscoverR ( getGitRefDiscoverR
, postGitUploadRequestR
) )
where where
@ -53,3 +54,6 @@ getGitRefDiscoverR sharer repo = do
else permissionDenied "Service not supported" else permissionDenied "Service not supported"
_ -> notFound _ -> notFound
else notFound else notFound
postGitUploadRequestR :: Text -> Text -> Handler Text
postGitUploadRequestR sharer repo = notFound