fix crash on empty description

Caused by bug fixed in 46cf00ffd8
This commit is contained in:
Joey Hess 2013-11-09 13:50:44 -04:00
parent 46cf00ffd8
commit 8e1b8af6e7

View file

@ -56,7 +56,7 @@ fixBadUUID = M.fromList . map fixup . M.toList
| otherwise = (k, v)
where
kuuid = fromUUID k
isbad = not (isuuid kuuid) && isuuid lastword
isbad = not (isuuid kuuid) && not (null ws) && isuuid lastword
ws = words $ value v
lastword = Prelude.last ws
fixeduuid = toUUID lastword