robustness fixes for empty or missing trust log

1 files changed, 5 insertions, 1 deletions

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