Declared a function that receives HTML and produces HTML that follows the website...

diff --git a/src/Server.hs b/src/Server.hs
index 0caf0a0..c98da1a 100644 (file)
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -39,3 +39,6 @@ darkTheme = undefined
 
 lightTheme :: Handler T.Text
 lightTheme = undefined
+
+htmlContainer :: Html a -> Html a
+htmlContainer = id