diff --git a/make-pages/SinglePage.hs b/make-pages/SinglePage.hs index a6f5895..807ed91 100644 --- a/make-pages/SinglePage.hs +++ b/make-pages/SinglePage.hs @@ -38,18 +38,20 @@ make' includeNsfw (Info {date, title, tags, nsfwTags, buttonBar title' includeNsfw images <> "\n\n" <> "\n" <> - " path0 <> "\">\n" <> + " path0 <> "\">\n\n" <> ifJust description (\d -> " \n" <> " description\n" <> indent 4 d <> - " \n") <> + " \n") <> "\n" <> makeTags includeNsfw tags nsfwTags <> extLinks includeNsfw links <> "\n\n" <> - "\n" <> - " back to gallery\n" <> - "\n" + "\n" where path0' = let Image {path} = head images in path path0 = fromText path0'