From d543ef8b1f68a23f9bc3706363fc3807ccbabf30 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Sun, 16 Aug 2020 12:33:21 +0200
Subject: Room list styling

---
 server/lib/Uplcg/Views.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'server/lib/Uplcg/Views.hs')

diff --git a/server/lib/Uplcg/Views.hs b/server/lib/Uplcg/Views.hs
index 772c83b..8241158 100644
--- a/server/lib/Uplcg/Views.hs
+++ b/server/lib/Uplcg/Views.hs
@@ -31,15 +31,16 @@ template conf title body = H.docTypeHtml $ do
         H.footer $ "Untitled PL Card Game version " <> H.toHtml version
 
 rooms :: Config -> [RoomView] -> H.Html
-rooms conf rids = template conf "Untitled PL Card Game" $ do
-    H.h1 "Rooms"
-    H.ul $ for_ rids $ \(RoomView rid num) -> H.li $ do
-        H.a H.! A.href (H.toValue $
-                BaseUrl.render (cBaseUrl conf) <> "/rooms/" <> rid) $
-            H.toHtml rid
-        " ("
-        H.toHtml num
-        ")"
+rooms conf rids = template conf "Untitled PL Card Game" $
+    H.div H.! A.class_ "rooms" $ do
+        H.h1 "Rooms"
+        H.ul $ for_ rids $ \(RoomView rid num) -> H.li $ do
+            H.a H.! A.href (H.toValue $
+                    BaseUrl.render (cBaseUrl conf) <> "/rooms/" <> rid) $
+                H.toHtml rid
+            " ("
+            H.toHtml num
+            ")"
 
 client :: Config -> Text -> H.Html
 client conf roomId = template conf "Untitled PL Card Game" $ do
-- 
cgit v1.2.3