blob: edbdb16af7e2519b59e3fc5dc98299fed03b331f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module Hakyll.Util
( dropParentRoute
, modifyDirRoute
, modifyDirRoute_
) where
import Prolog
import Hakyll
import System.FilePath
-- | Drop some number of parent directories
dropParentRoute :: Int -> Routes
dropParentRoute n = modifyDirRoute_ $ drop n
modifyDirRoute :: ([FilePath] -> FilePath) -> Routes
modifyDirRoute f = customRoute $ f . splitDirectories . toFilePath
modifyDirRoute_ :: ([FilePath] -> [FilePath]) -> Routes
modifyDirRoute_ f = modifyDirRoute $ joinPath . f
|
