diff --git a/make-pages/Info.hs b/make-pages/Info.hs
index 584e8dd..44272b4 100644
--- a/make-pages/Info.hs
+++ b/make-pages/Info.hs
@@ -272,8 +272,8 @@ unlabelledImage' label' y = asStr y <|> asObj y
     warning  <- m .:? "warning"
     let label = fromMaybe (pathToLabel path) label'
     pure $ Image {label, path, download, nsfw, warning}
-  pathToLabel = Text.pack . dashToSpace . takeBaseName
-  dashToSpace = map \case '-' -> ' '; c -> c
+  pathToLabel = Text.pack . gapToSpace . takeBaseName
+  gapToSpace = map \case '-' -> ' '; '_' -> ' '; c -> c
 
 instance FromYAML Link where
   parseYAML =