From 963c135da14cf1be5d09368ab6e19b4907779ac9 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Sat, 22 Aug 2020 14:50:36 +0200
Subject: Add link to repo

---
 server/lib/Uplcg/Views.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'server')

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" $
-- 
cgit v1.2.3