aboutsummaryrefslogtreecommitdiff
path: root/Utils.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utils.hs')
-rw-r--r--Utils.hs5
1 files changed, 3 insertions, 2 deletions
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.)