MasseR/rauhala.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Ignore temp files

Browse Source
This commit is contained in:
Mats Rauhala 2021-01-25 19:35:21 +02:00
parent 59cf230683
commit 7e290bee2f
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
site/app/site.hs
View File

@ -3,12 +3,15 @@
import Hakyll import Hakyll
import Data.List import Data.List
(isSuffixOf) (isPrefixOf, isSuffixOf)
import System.FilePath
(takeFileName)
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
main :: IO () main :: IO ()
main = hakyllWith defaultConfiguration $ do main = hakyllWith defaultConfiguration{ignoreFile = ignore} $ do
match "well-known/*" $ do match "well-known/*" $ do
route (customRoute (prepend '.'. toFilePath)) route (customRoute (prepend '.'. toFilePath))
compile copyFileCompiler compile copyFileCompiler
@ -38,6 +41,13 @@ main = hakyllWith defaultConfiguration $ do
match "templates/*" $ compile templateBodyCompiler match "templates/*" $ compile templateBodyCompiler
where
ignore path = any ($ takeFileName path)
[ ("." `isPrefixOf`)
, ("#" `isPrefixOf`)
, ("~" `isSuffixOf`)
, (".swp" `isSuffixOf`)
]
prepend :: a -> [a] -> [a] prepend :: a -> [a] -> [a]