diff --git a/devforms.cabal b/devforms.cabal
--- a/devforms.cabal
+++ b/devforms.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               devforms
-version:            0.2.0.1
+version:            0.2.0.2
 synopsis:           A builder DSL for HTML survey forms with built-in server and storage
 description:
     devforms is a Haskell library for building HTML survey forms using a
diff --git a/src/Form.hs b/src/Form.hs
--- a/src/Form.hs
+++ b/src/Form.hs
@@ -12,12 +12,11 @@
 
 renderForm :: Form -> Html ()
 renderForm form@Form{title, questions} = do
-    main_ $ do
-        h2_ $ toHtml title
-        validationEnhancer_ $
-            form_ [hxPost_ $ getSubmitUrl form, script_ "on keydown[key is 'Enter'] from <input/> halt"] $ do
-                forM_ (reverse questions) renderQuestion
-                input_ [type_ "submit"]
+    h2_ $ toHtml title
+    validationEnhancer_ $
+        form_ [hxPost_ $ getSubmitUrl form, script_ "on keydown[key is 'Enter'] from <input/> halt"] $ do
+            forM_ (reverse questions) renderQuestion
+            input_ [type_ "submit"]
 
 validationEnhancer_ :: Html () -> Html ()
 validationEnhancer_ = term "validation-enhancer"
diff --git a/src/Server.hs b/src/Server.hs
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -86,11 +86,14 @@
 instance JSON.ToJSON ServerLog
 
 page :: Html () -> Html ()
-page mainContent =
+page mainContent = do
+    doctype_
     html_
         ( do
             head_
                 ( do
+                    meta_ [charset_ "utf-8"]
+                    meta_ [name_ "viewport", content_ "width=device-width, initial-scale=1"]
                     script_ [src_ "static/htmx.min.js"] ("" :: String)
                     script_ [src_ "static/_hyperscript.min.js"] ("" :: String)
                     script_ [type_ "module", src_ "static/validation-enhancer.min.js"] ("" :: String)
@@ -139,10 +142,6 @@
 
             body_
                 ( do
-                    main_
-                        ( do
-                            nav_ $ pure ()
-                            mainContent
-                        )
+                    main_ mainContent
                 )
         )