Dummy git upload-pack request POST handler

config/routes

@@ -51,6 +51,7 @@
 /u/#Text/r/#Text/c                      RepoCommitsR      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/#TicketId TicketR    GET

src/Vervis/Handler/Git.hs

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