diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-04-03 12:02:06 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-04-03 12:02:06 +0200 |
| commit | 5e4adaecb232231d87a6bb4dd0b041daf86a4cdb (patch) | |
| tree | dab51fae19d9c062fdc9697c1ac410a93e8f4517 /src/Hakyll/Init.hs | |
| parent | 792fcdf4c6c5a86a6dcaf969f807ae86a58090b1 (diff) | |
| download | hakyll-5e4adaecb232231d87a6bb4dd0b041daf86a4cdb.tar.gz | |
Account for absolute paths in `shouldIgnoreFile`
Diffstat (limited to 'src/Hakyll/Init.hs')
| -rw-r--r-- | src/Hakyll/Init.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Init.hs b/src/Hakyll/Init.hs index 2a92340..d50c6f6 100644 --- a/src/Hakyll/Init.hs +++ b/src/Hakyll/Init.hs @@ -23,7 +23,7 @@ main = do progName <- getProgName args <- getArgs srcDir <- getDataFileName "example" - files <- getRecursiveContents (const False) srcDir + files <- getRecursiveContents (const $ return False) srcDir case args of [dstDir] -> forM_ files $ \file -> do |