From 5cc710d548a94c4b56d3eed0276e269f6be0026a Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 4 Apr 2011 12:16:38 +0200 Subject: Don't ignore dotfiles in getRecursiveContents --- src/Hakyll/Core/Util/File.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Hakyll/Core/Util/File.hs b/src/Hakyll/Core/Util/File.hs index 9babc8b..24814ae 100644 --- a/src/Hakyll/Core/Util/File.hs +++ b/src/Hakyll/Core/Util/File.hs @@ -47,7 +47,7 @@ getRecursiveContents includeDirs topdir = do return $ if includeDirs then topdir : concat paths else concat paths where - isProper = not . (== ".") . take 1 + isProper = (`notElem` [".", ".."]) -- | Check if a timestamp is obsolete compared to the timestamps of a number of -- files. When they are no files, it is never obsolete. -- cgit v1.2.3