@@ -47,7 +47,7 @@ getRecursiveContents includeDirs topdir = do
47 return $ if includeDirs then topdir : concat paths
47 return $ if includeDirs then topdir : concat paths
48 else concat paths
48 else concat paths
50− isProper = not . (== ".") . take 1
50+ isProper = (`notElem` [".", ".."])
52-- | Check if a timestamp is obsolete compared to the timestamps of a number of
52-- | Check if a timestamp is obsolete compared to the timestamps of a number of
53-- files. When they are no files, it is never obsolete.
53-- files. When they are no files, it is never obsolete.