From 1f2ab58478925481d5cf273d38e30fc06e96e69e Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 15 Oct 2023 23:06:59 +0200
Subject: stabilize and parametrize sorting of stuff, get rid of "title"

---
 Utils.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Utils.hs')

diff --git a/Utils.hs b/Utils.hs
index 07cc7b2..9c901cc 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -28,7 +28,7 @@ import System.Directory
   , doesDirectoryExist
   , getDirectoryContents
   )
-import System.FilePath ((</>), takeDirectory, splitDirectories)
+import System.FilePath ((</>), splitDirectories, takeDirectory)
 import Text.Pandoc.Definition
 import qualified Text.Pandoc.Walk
 import Types
@@ -132,7 +132,8 @@ sourcePaths fp process = do
         | null ds = False
         | last ds `elem` notSource = True
         | otherwise = False
-  io (getRecursiveContents (pure . ignoreDir . splitDirectories) fp) >>= foldMapM process
+  io (getRecursiveContents (pure . ignoreDir . splitDirectories) fp) >>=
+    foldMapM process
 
 -- | Given a path to a file, try to make the path writable by making all
 -- directories on the path. (Interned from Hakyll.)
-- 
cgit v1.2.3