fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use comma-separated in AdminUsersR

Browse Source
This commit is contained in:
Gregor Kleen 2018-07-08 22:10:46 +02:00
parent 4c86306bfd
commit 71e57b767d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Users.hs
View File

@ -42,7 +42,7 @@ getUsersR = do
E.orderBy [E.asc $ school E.^. SchoolShorthand] E.orderBy [E.asc $ school E.^. SchoolShorthand]
return $ school E.^. SchoolShorthand return $ school E.^. SchoolShorthand
return [whamlet| return [whamlet|
<ul> <ul .list--inline .list--comma-separated>
$forall (E.Value sh) <- schools $forall (E.Value sh) <- schools
<li>#{sh} <li>#{sh}
|] |]
@ -55,7 +55,7 @@ getUsersR = do
E.orderBy [E.asc $ school E.^. SchoolShorthand] E.orderBy [E.asc $ school E.^. SchoolShorthand]
return $ school E.^. SchoolShorthand return $ school E.^. SchoolShorthand
return [whamlet| return [whamlet|
<ul> <ul .list--inline .list--comma-separated>
$forall (E.Value sh) <- schools $forall (E.Value sh) <- schools
<li>#{sh} <li>#{sh}
|] |]