From 490a20c85c2c703eaeff2cfabee8172a1fbd2d45 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Wed, 15 Jul 2020 20:10:09 +0200
Subject: [PATCH] remove ' from dependSingle's name

---
 make-pages/Depend.hs | 14 +++++++-------
 make-pages/Main.hs   |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/make-pages/Depend.hs b/make-pages/Depend.hs
index 4ccb7e1..90a6dfc 100644
--- a/make-pages/Depend.hs
+++ b/make-pages/Depend.hs
@@ -9,13 +9,13 @@ import Data.Text.Lazy.Builder (toLazyText)
 import System.FilePath
 
 
-dependSingle' :: FilePath -- ^ yaml file name (relative to data dir!)
-              -> Info
-              -> FilePath -- ^ output prefix
-              -> FilePath -- ^ build dir
-              -> Bool     -- ^ include nsfw?
-              -> Text
-dependSingle' yaml info prefix build nsfw =
+dependSingle :: FilePath -- ^ yaml file name (relative to data dir!)
+             -> Info
+             -> FilePath -- ^ output prefix
+             -> FilePath -- ^ build dir
+             -> Bool     -- ^ include nsfw?
+             -> Text
+dependSingle yaml info prefix build nsfw =
   let dir    = build </> prefix </> takeDirectory yaml
       images = if nsfw then #images info else filter #sfw $ #images info
       paths  = map #path images
diff --git a/make-pages/Main.hs b/make-pages/Main.hs
index f174a76..b62e1dc 100644
--- a/make-pages/Main.hs
+++ b/make-pages/Main.hs
@@ -45,7 +45,7 @@ main2 (DependSingle {file, nsfw, output, prefix, buildDir, dataDir}) = do
   printV $ "contents" :- info
   let path = makeRelative dataDir file
   printV $ "path" :- path
-  let deps = dependSingle' path info prefix buildDir nsfw
+  let deps = dependSingle path info prefix buildDir nsfw
   writeOutput output deps