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}
                 |]