diff options
| -rw-r--r-- | server/lib/Uplcg/Views.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/server/lib/Uplcg/Views.hs b/server/lib/Uplcg/Views.hs index 9e453e8..c3ef1cc 100644 --- a/server/lib/Uplcg/Views.hs +++ b/server/lib/Uplcg/Views.hs @@ -28,7 +28,11 @@ template title body = H.docTypeHtml $ do H.meta H.! A.name "viewport" H.! A.content "width=device-width" H.body $ do body - H.footer $ "Untitled PL Card Game version " <> H.toHtml version + H.footer $ do + H.a H.! A.href "https://github.com/jaspervdj/uplcg" $ + "Untitled PL Card Game" + " version " + H.toHtml version rooms :: [RoomView] -> [Deck] -> H.Html rooms rids decks = template "Untitled PL Card Game" $ |