diff options
author | Jasper Van der Jeugt | 2020-08-14 01:43:30 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-14 01:43:30 +0200 |
commit | ce06b07d6dae781fe09e4b0512a9b6d41ba687a6 (patch) | |
tree | f14d92948c88e75ef585079b64277caf6ed93714 /server/lib/Uplcg/Views.hs | |
parent | 8d5c0405565ad4afd976efd1262b3224efd6ee2f (diff) |
WIP
Diffstat (limited to '')
-rw-r--r-- | server/lib/Uplcg/Views.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/server/lib/Uplcg/Views.hs b/server/lib/Uplcg/Views.hs new file mode 100644 index 0000000..91b03ff --- /dev/null +++ b/server/lib/Uplcg/Views.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE OverloadedStrings #-} +module Uplcg.Views + ( rooms + ) where + +import Data.Text (Text) +import qualified Text.Blaze.Html5 as H +import qualified Text.Blaze.Html5.Attributes as A +import Uplcg.BaseUrl (BaseUrl) +import qualified Uplcg.BaseUrl as BaseUrl + +rooms :: BaseUrl -> [Text] -> H.Html +rooms base _ids = H.docTypeHtml $ do + H.head $ do + H.meta H.! A.charset "UTF-8" + H.link H.! A.rel "stylesheet" H.! A.type_ "text/css" + H.! A.href (H.toValue $ BaseUrl.render base <> "/assets/style.css") + H.body $ do + H.footer $ "Untitled PL Card Game" |