From 8b25a3d712e36b5665eb34686e66c2e9857029b6 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Sat, 20 Mar 2021 11:07:51 +0100
Subject: [PATCH] translate _ to space in pathToLabel

---
 make-pages/Info.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 =