fix handling of uuids with empty descriptions

This commit is contained in:
Joey Hess 2011-09-30 02:50:34 -04:00
parent a7e7dda55a
commit 17b29176b8

View file

@ -100,7 +100,4 @@ uuidMap = do
s <- Branch.get uuidLog
return $ M.fromList $ map pair $ lines s
where
pair l =
if 1 < length (words l)
then (head $ words l, unwords $ drop 1 $ words l)
else ("", "")
pair l = (head $ words l, unwords $ drop 1 $ words l)