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

41
config/routes
View file

@ -16,41 +16,42 @@
-- Yesod misc -- Yesod misc
-- ---------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
/static StaticR Static appStatic /static StaticR Static appStatic
/favicon.ico FaviconR GET /favicon.ico FaviconR GET
/robots.txt RobotsR GET /robots.txt RobotsR GET
-- ---------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
-- User login -- User login
-- ---------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
/auth AuthR Auth getAuth /auth AuthR Auth getAuth
-- ---------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
-- Everything else... -- Everything else...
-- ---------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
/ HomeR GET / HomeR GET
/u PeopleR GET POST /u PeopleR GET POST
/u/!new PersonNewR GET /u/!new PersonNewR GET
/u/#Text PersonR GET /u/#Text PersonR GET
/u/#Text/k KeysR GET POST /u/#Text/k KeysR GET POST
/u/#Text/k/!new KeyNewR GET /u/#Text/k/!new KeyNewR GET
/u/#Text/k/#Text KeyR GET /u/#Text/k/#Text KeyR GET
/u/#Text/p ProjectsR GET POST /u/#Text/p ProjectsR GET POST
/u/#Text/p/!new ProjectNewR GET /u/#Text/p/!new ProjectNewR GET
/u/#Text/p/#Text ProjectR GET /u/#Text/p/#Text ProjectR GET
/u/#Text/r ReposR GET POST /u/#Text/r ReposR GET POST
/u/#Text/r/!new RepoNewR GET /u/#Text/r/!new RepoNewR GET
/u/#Text/r/#Text RepoR GET /u/#Text/r/#Text RepoR GET
/u/#Text/r/#Text/s/#Text/+Texts RepoSourceR GET /u/#Text/r/#Text/s/#Text/+Texts RepoSourceR GET
/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