don't crash on malformed lines in uuid.log

1 files changed, 5 insertions, 1 deletions

diff --git a/UUID.hs b/UUID.hs
index a150dc333..b1ccbb250 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -100,4 +100,8 @@ uuidMap = do
 	s <- Branch.get uuidLog
 	return $ M.fromList $ map pair $ lines s
 	where
-		pair l = (head $ words l, unwords $ drop 1 $ words l)
+		pair l
+			| null ws = ("", "")
+			| otherwise = (head ws, unwords $ drop 1 ws)
+			where
+				ws = words l