fix handling of uuids with empty descriptions

1 files changed, 1 insertions, 4 deletions

diff --git a/UUID.hs b/UUID.hs
index fa71bed39..a150dc333 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -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)