From 2d4fb85fcac459e9cc3d026ba97f0a788d8904ac Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Sun, 29 May 2016 14:13:25 +0000
Subject: [PATCH] Dummy routes for repo team members

---
 config/routes              |  3 +++
 src/Vervis/Foundation.hs   |  8 ++++++++
 src/Vervis/Handler/Repo.hs | 24 ++++++++++++++++++++++++
 3 files changed, 35 insertions(+)

diff --git a/config/routes b/config/routes
index 700f10c..da098c8 100644
--- a/config/routes
+++ b/config/routes
@@ -66,6 +66,9 @@
 /s/#ShrIdent/r/#RpIdent/s/+Texts             RepoSourceR       GET
 /s/#ShrIdent/r/#RpIdent/c                    RepoHeadChangesR  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
 
diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 7b4fd72..499456e 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -138,6 +138,9 @@ instance Yesod App where
         (ReposR shar             , True) -> person shar
         (RepoNewR user           , _   ) -> person user
         (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
         (ProjectNewR user        , _   ) -> person user
@@ -317,6 +320,11 @@ instance YesodBreadcrumbs App where
         RepoChangesR shar repo ref       -> ( ref
                                             , 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)
 
diff --git a/src/Vervis/Handler/Repo.hs b/src/Vervis/Handler/Repo.hs
index b84eaa3..7d05968 100644
--- a/src/Vervis/Handler/Repo.hs
+++ b/src/Vervis/Handler/Repo.hs
@@ -23,6 +23,12 @@ module Vervis.Handler.Repo
     , getRepoSourceR
     , getRepoHeadChangesR
     , getRepoChangesR
+    , getRepoDevsR
+    , postRepoDevsR
+    , getRepoDevNewR
+    , getRepoDevR
+    , deleteRepoDevR
+    , postRepoDevR
     , getDarcsDownloadR
     )
 where
@@ -196,3 +202,21 @@ getRepoChangesR shar repo ref = do
     case repoVcs repository of
         VCSDarcs -> getDarcsRepoChanges 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"