twiddle markup a bit

make-pages/SinglePage.hs

@@ -38,18 +38,20 @@ make' includeNsfw (Info {date, title, tags, nsfwTags,
     buttonBar title' includeNsfw images <>
  "</header>\n\n" <>
  "<main>\n" <>
- "  <img id=it src=\"" <> path0 <> "\">\n" <>
+ "  <img id=it src=\"" <> path0 <> "\">\n\n" <>
  ifJust description (\d ->
  "  <div class=desc>\n" <>
  "    <h2>description</h2>\n" <>
       indent 4 d <>
- "  </div>\n") <>
+ "  </div>\n") <> "\n" <>
     makeTags includeNsfw tags nsfwTags <>
     extLinks includeNsfw links <>
  "</main>\n\n" <>
- "<nav class=back>\n" <>
+ "<footer>\n" <>
+ "  <nav class=back>\n" <>
  "    <a href=../>back to gallery</a>\n" <>
- "</nav>\n"
+ "  </nav>\n" <>
+ "</footer>\n"
  where
   path0' = let Image {path} = head images in path
   path0  = fromText path0'