require $& for whitespace before or after a builder

make-pages/GalleryPage.hs

@@ -129,8 +129,8 @@ makeFilter prefix initial tag count = [b|
  where
   id' = [b|$prefix$&_$tag'|]
   tag' = escId tag
-  checked = if HashSet.member tag initial then [b| checked|] else ""
-  hidden = if count <= 1 then [b| hidden|] else ""
+  checked = if HashSet.member tag initial then [b|$& checked|] else ""
+  hidden = if count <= 1 then [b|$& hidden|] else ""
 
 makeYearItems :: Bool -- ^ nsfw
               -> Int -- ^ year
@@ -159,12 +159,12 @@ makeItem nsfw file info@(Info {bg}) = [b|
   title     = fromMaybe info.title $ info.galleryTitle
   dir       = takeDirectory file
   thumbnail = getThumb dir info
-  nsfw'     = if nsfw && anyNsfw info then [b| nsfw|] else ""
+  nsfw'     = if nsfw && anyNsfw info then [b|$& nsfw|] else ""
   tags'     = fold $ intersperse ";" $ map fromText $ tagsFor nsfw info
   date      = latestDateFor nsfw info
   date'     = formatTooltip date
   year'     = date.year
   updated'  = if hasUpdatesFor nsfw info then [b|true|] else [b|false|]
-  bgStyle   = case bg of Other col -> [b| style="background: $col"|]; _ -> ""
+  bgStyle   = case bg of Other col -> [b|$& style="background: $col"|]; _ -> ""
   tooltip   = [b|$title ($upd$date')|]
     where upd = if hasUpdatesFor nsfw info then "updated " else "" :: Builder