aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Logs/UUID.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/UUID.hs b/Logs/UUID.hs
index ef1074e78..154f86d51 100644
--- a/Logs/UUID.hs
+++ b/Logs/UUID.hs
@@ -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