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

robustness fixes for empty or missing trust log

Browse source
This commit is contained in:
Joey Hess 2011-01-11 18:49:32 -04:00
parent 8d6da87eec
commit 730c273eae
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
UUID.hs
View file

@ -145,8 +145,12 @@ getTrusted :: Annex [UUID]
getTrusted = do getTrusted = do
logfile <- trustLog logfile <- trustLog
s <- liftIO $ catch (readFile logfile) ignoreerror s <- liftIO $ catch (readFile logfile) ignoreerror
return $ map (\l -> head $ words l) $ lines s return $ parse s
where where
parse [] = []
parse s = map firstword $ lines s
firstword [] = ""
firstword l = head $ words l
ignoreerror _ = return "" ignoreerror _ = return ""
{- Changes the list of trusted UUIDs. -} {- Changes the list of trusted UUIDs. -}