change some classes to ids

make-pages/SinglePage.hs

@@ -61,7 +61,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
         </a>
       </figure>
 
-      <section class=info>
+      <section id=info>
         $descSection
 
         $tagsList
@@ -71,7 +71,7 @@ make' nsfw dir (Info {date, title, artist, tags, nsfwTags,
     </main>
 
     <footer>
-      <nav class=back>
+      <nav id=back>
         <a href=$@undir>back to gallery</a>
       </nav>
     </footer>
@@ -114,7 +114,7 @@ makeArtist (Artist {name, url}) =
 
 makeDesc :: Bool -> Maybe Strict.Text -> Maybe Strict.Text -> Builder
 makeDesc nsfw desc nsfwDesc = [b|@4
-  <section class=desc>
+  <section id=desc>
     <h2>about</h2>
     <div>
       $8*desc'
@@ -165,7 +165,7 @@ escId = foldMap esc1 . Strict.unpack where
 makeTags :: Bool -> [Strict.Text] -> [Strict.Text] -> Builder
 makeTags nsfw sfwTags nsfwTags =
   if null tags then "" else [b|@4
-    <section class=tags>
+    <section id=tags>
       <h2>tags</h2>
       <ul class=buttonbar>
         $8.tagList
@@ -180,7 +180,7 @@ makeTags nsfw sfwTags nsfwTags =
 extLinks :: Bool -> [Link] -> Builder
 extLinks nsfw allLinks =
   if null links then "" else [b|@4
-    <section class=links>
+    <section id=links>
       <h2>links</h2>
       <ul class=buttonbar>
         $8.linkList