From: sabadev Date: Wed, 17 Mar 2021 00:28:52 +0000 (-0400) Subject: Moved navigation out of main. X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=c3f3ca187ee8de0a500da1a5b078bf9cf3a83fb7;p=website.git Moved navigation out of main. --- diff --git a/src/Server.hs b/src/Server.hs index 219be67..f215c4b 100644 --- a/src/Server.hs +++ b/src/Server.hs @@ -59,9 +59,9 @@ htmlContainer contents = do meta_ [charset_ "utf8"] meta_ [name_ "description", content_ "width=device-width"] link_ [rel_ "stylesheet", href_ "/dark"] - body_ $ div_ [role_ "main"] $ do + body_ $ do nav - contents + div_ [role_ "main"] contents navigation :: Handler (Html ()) navigation = liftIO blogList >>= pure . div_ [role_ "navigation"] . ul_ [class_ "blog-links"]