parent
46cf00ffd8
commit
8e1b8af6e7
1 changed files with 1 additions and 1 deletions
|
@ -56,7 +56,7 @@ fixBadUUID = M.fromList . map fixup . M.toList
|
||||||
| otherwise = (k, v)
|
| otherwise = (k, v)
|
||||||
where
|
where
|
||||||
kuuid = fromUUID k
|
kuuid = fromUUID k
|
||||||
isbad = not (isuuid kuuid) && isuuid lastword
|
isbad = not (isuuid kuuid) && not (null ws) && isuuid lastword
|
||||||
ws = words $ value v
|
ws = words $ value v
|
||||||
lastword = Prelude.last ws
|
lastword = Prelude.last ws
|
||||||
fixeduuid = toUUID lastword
|
fixeduuid = toUUID lastword
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue