diff --git a/src/Vervis/Handler/Role.hs b/src/Vervis/Handler/Role.hs
index 70665af..5bf7b37 100644
--- a/src/Vervis/Handler/Role.hs
+++ b/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
diff --git a/templates/repo/role/list.hamlet b/templates/repo/role/graph.hamlet
similarity index 75%
rename from templates/repo/role/list.hamlet
rename to templates/repo/role/graph.hamlet
index 693a02d..dcde87c 100644
--- a/templates/repo/role/list.hamlet
+++ b/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}