@@ -641,6 +641,8 @@ wrapper ns inner =
641 indexPage = base ++ "index.html" :: String
641 indexPage = base ++ "index.html" :: String
642 in H.docTypeHtml $ do
642 in H.docTypeHtml $ do
643 H.head $ do
643 H.head $ do
644+ H.meta ! charset "utf-8"
645+ H.meta ! name "viewport" ! content "width=device-width, initial-scale=1, shrink-to-fit=no"
644 H.title $ do
646 H.title $ do
645 "IdrisDoc"
647 "IdrisDoc"
646 if index then " Index" else do
648 if index then " Index" else do