aboutsummaryrefslogtreecommitdiff
path: root/server/lib/Uplcg
diff options
context:
space:
mode:
authorJasper Van der Jeugt2020-08-16 12:33:21 +0200
committerJasper Van der Jeugt2020-08-16 12:33:21 +0200
commitd543ef8b1f68a23f9bc3706363fc3807ccbabf30 (patch)
tree3d933f13ab57bf0ff2c625394cc1f4de0020af63 /server/lib/Uplcg
parent5a3fc14c1a92b28423d1b64b64e12d0502a90219 (diff)
Room list styling
Diffstat (limited to 'server/lib/Uplcg')
-rw-r--r--server/lib/Uplcg/Views.hs19
1 files changed, 10 insertions, 9 deletions
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