mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix info file finding

Browse source
This commit is contained in:
Joey Hess 2014-02-10 15:33:37 -04:00
parent da8ca05a02
commit de3aaa9eb0
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Build/DistributionUpdate.hs
View file

@ -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