-- | Render a simple markdown page.
markdownPage :: [Route App] -> Text -> FilePath -> C (Html ())
markdownPage crumbs t name =
  do content <- io (getMarkdown name)
     lucid (markdownV crumbs t content)
markdownPage :: [Route App] -> Text -> FilePath -> C (Html ())
markdownPage crumbs t name =
  do content <- io (getMarkdown name)
     lucid (markdownV crumbs t content)
markdownPage crumbs t name =
  do content <- io (getMarkdown name)
     lucid (markdownV crumbs t content)