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
|
s <- Branch.get uuidLog
|
||||||
return $ M.fromList $ map pair $ lines s
|
return $ M.fromList $ map pair $ lines s
|
||||||
where
|
where
|
||||||
pair l =
|
pair l = (head $ words l, unwords $ drop 1 $ words l)
|
||||||
if 1 < length (words l)
|
|
||||||
then (head $ words l, unwords $ drop 1 $ words l)
|
|
||||||
else ("", "")
|
|
||||||
|
|
Loading…
Reference in a new issue