From 17b29176b8350adf9f6d547d59b97c965f1aad7f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 30 Sep 2011 02:50:34 -0400 Subject: fix handling of uuids with empty descriptions --- UUID.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'UUID.hs') 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) -- cgit v1.2.3