From 5e4adaecb232231d87a6bb4dd0b041daf86a4cdb Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Wed, 3 Apr 2013 12:02:06 +0200
Subject: Account for absolute paths in `shouldIgnoreFile`

---
 src/Hakyll/Init.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Hakyll/Init.hs')

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
-- 
cgit v1.2.3