From 71e57b767dc12ff93ff2f88ee7585c3cd9555382 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 8 Jul 2018 22:10:46 +0200
Subject: [PATCH] Use comma-separated in AdminUsersR

---
 src/Handler/Users.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs
index 48010f33c..9d3965c57 100644
--- a/src/Handler/Users.hs
+++ b/src/Handler/Users.hs
@@ -42,7 +42,7 @@ getUsersR = do
                 E.orderBy [E.asc $ school E.^. SchoolShorthand]
                 return $ school E.^. SchoolShorthand
               return [whamlet|
-                  <ul>
+                  <ul .list--inline .list--comma-separated>
                     $forall (E.Value sh) <- schools
                       <li>#{sh}
                 |]
@@ -55,7 +55,7 @@ getUsersR = do
                 E.orderBy [E.asc $ school E.^. SchoolShorthand]
                 return $ school E.^. SchoolShorthand
               return [whamlet|
-                  <ul>
+                  <ul .list--inline .list--comma-separated>
                     $forall (E.Value sh) <- schools
                       <li>#{sh}
                 |]