forge/Vervis
1
0
Fork 0
Code Pull requests Activity

In group page, link to group members page

Browse source
This commit is contained in:
fr33domlover 2016-06-06 14:13:33 +00:00
parent f53768de7e
commit 05e0d837fa
2 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Handler/Group.hs
View file

@ -105,7 +105,7 @@ getGroupR shar = do
Entity sid _s <- getBy404 $ UniqueSharer shar Entity sid _s <- getBy404 $ UniqueSharer shar
Entity _gid g <- getBy404 $ UniqueGroup sid Entity _gid g <- getBy404 $ UniqueGroup sid
return g return g
defaultLayout $ return () defaultLayout $(widgetFile "group/one")
getGroupMembersR :: ShrIdent -> Handler Html getGroupMembersR :: ShrIdent -> Handler Html
getGroupMembersR shar = do getGroupMembersR shar = do

16
templates/group/one.hamlet Normal file
View file

@ -0,0 +1,16 @@
$# This file is part of Vervis.
$#
$# Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
$#
$# ♡ Copying is an act of love. Please copy, reuse and share.
$#
$# The author(s) have dedicated all copyright and related and neighboring
$# rights to this software to the public domain worldwide. This software is
$# distributed without any warranty.
$#
$# You should have received a copy of the CC0 Public Domain Dedication along
$# with this software. If not, see
$# <http://creativecommons.org/publicdomain/zero/1.0/>.
<p>
<a href=@{GroupMembersR shar}>Members