fix handling of uuids with empty descriptions
This commit is contained in:
parent
a7e7dda55a
commit
17b29176b8
1 changed files with 1 additions and 4 deletions
5
UUID.hs
5
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)
|
||||
|
|
Loading…
Reference in a new issue