@@ -51,7 +51,7 @@ getRecursiveContents topdir = do
51directory :: (FilePath -> IO ()) -> FilePath -> IO ()
51directory :: (FilePath -> IO ()) -> FilePath -> IO ()
52directory action dir = getRecursiveContents dir >>= mapM_ action
52directory action dir = getRecursiveContents dir >>= mapM_ action
54−-- | Check is a cache file is still valid.
54+-- | Check if a cache file is still valid.
55isCacheValid :: FilePath -> [FilePath] -> IO Bool
55isCacheValid :: FilePath -> [FilePath] -> IO Bool
56isCacheValid cache depends = doesFileExist cache >>= \exists ->
56isCacheValid cache depends = doesFileExist cache >>= \exists ->
57 if not exists then return False
57 if not exists then return False