Role diagram for repo roles too

src/Vervis/Handler/Role.hs

@@ -56,10 +56,13 @@ import Vervis.Widget.Role
 
 getRepoRolesR :: ShrIdent -> Handler Html
 getRepoRolesR shr = do
-    roles <- runDB $ do
-        Entity sid _ <- getBy404 $ UniqueSharer shr
-        selectList [RepoRoleSharer ==. sid] []
-    defaultLayout $(widgetFile "repo/role/list")
+    --roles <- runDB $ do
+    --    Entity sid _ <- getBy404 $ UniqueSharer shr
+    --    selectList [RepoRoleSharer ==. sid] []
+    graph <- runDB $ do
+        Entity sid _s <- getBy404 $ UniqueSharer shr
+        getRepoRoleGraph sid
+    defaultLayout $(widgetFile "repo/role/graph")
 
 postRepoRolesR :: ShrIdent -> Handler Html
 postRepoRolesR shr = do

templates/repo/role/graph.hamlet

@@ -15,8 +15,10 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
 <p>
   <a href=@{RepoRoleNewR shr}>New…
 
-<ul>
-  $forall Entity _rid role <- roles
-    <li>
-      <a href=@{RepoRoleR shr $ repoRoleIdent role}>
-        #{rl2text $ repoRoleIdent role}
+^{repoRoleGraphW shr graph}
+
+$#<ul>
+$#  $forall Entity _rid role <- roles
+$#    <li>
+$#      <a href=@{RepoRoleR shr $ repoRoleIdent role}>
+$#        #{rl2text $ repoRoleIdent role}