Загрузить файлы в «/»

Common.hs

@@ -0,0 +1,26 @@
+{-# LANGUAGE OverloadedStrings #-}
+module Common where
+import Lucid.Base
+import Lucid.Html5
+import qualified Data.Text as T
+type Name = T.Text
+type Key = T.Text
+type Students = [(Key, Name)]
+
+layout :: Html() -> Html ()
+layout bodyContent = 
+  doctypehtml_ $ do
+  head_ $ do
+    link_ [ rel_ "stylesheet", href_ "https://unpkg.com/milligram/dist/milligram.min.css" ]
+    style_ $ T.unlines
+      [ "form { text-align:center; width: 70%; margin: 0 auto; }"
+      , "h1 { text-align: center; }"
+      , "h2 { text-align: center; }"
+      , "h3 { text-align: center; }"
+      , "p { text-align: center; }"
+      , "label { display: inline-flex; align-items: center; gap: 6px;}"
+      ]
+    title_ "Каждому по заслугам"
+    meta_ [charset_ "utf-8"]
+    meta_ [name_ "viewport", content_ "width=device-width, initial-scale=1"]
+  body_ bodyContent