From 662f54e15a5e2569d49a54b45ffc22e2e45593f7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 10 Feb 2014 15:33:37 -0400 Subject: fix info file finding --- Build/DistributionUpdate.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Build/DistributionUpdate.hs b/Build/DistributionUpdate.hs index ba0e9844a..2c4d82495 100644 --- a/Build/DistributionUpdate.hs +++ b/Build/DistributionUpdate.hs @@ -25,7 +25,7 @@ makeinfos = do version <- liftIO getChangelogVersion now <- liftIO getCurrentTime liftIO $ putStrLn $ "building info files for version " ++ version ++ " in " ++ basedir - fs <- liftIO $ dirContentsRecursiveSkipping (== "info") True (basedir "git-annex") + fs <- liftIO $ dirContentsRecursiveSkipping (const False) True (basedir "git-annex") forM_ fs $ \f -> do v <- lookupFile f case v of @@ -56,7 +56,8 @@ makeinfos = do ] {- Check for out of date info files. -} - infos <- liftIO $ dirContentsRecursiveSkipping (/= "info") True (basedir "git-annex") + infos <- liftIO $ filter (".info" `isSuffixOf`) + <$> dirContentsRecursive (basedir "git-annex") ds <- liftIO $ forM infos (readish <$$> readFile) let dis = zip infos ds let ood = filter (outofdate version) dis -- cgit v1.2.3