diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-10 15:33:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-10 15:33:37 -0400 |
| commit | 662f54e15a5e2569d49a54b45ffc22e2e45593f7 (patch) | |
| tree | 086921014948682bbe90f525113cf43533d30335 /Build/DistributionUpdate.hs | |
| parent | 666de93d5a7ac2be9a13bc34b297e4698b103722 (diff) | |
fix info file finding
Diffstat (limited to 'Build/DistributionUpdate.hs')
| -rw-r--r-- | Build/DistributionUpdate.hs | 5 |
1 files 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 |