diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-09 01:57:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-09 01:57:13 -0400 |
| commit | d64132a43ae176e8a1353d5463c5387a93da9ad7 (patch) | |
| tree | b98b328a292807c00e4b9590e7cf3094ec176a49 /Logs/UUID.hs | |
| parent | e3f1568e0ff7dc872f3782115c74b9e7d8c291b2 (diff) | |
hslint
Diffstat (limited to 'Logs/UUID.hs')
| -rw-r--r-- | Logs/UUID.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Logs/UUID.hs b/Logs/UUID.hs index 20f43d15c..b325c78b6 100644 --- a/Logs/UUID.hs +++ b/Logs/UUID.hs @@ -55,15 +55,15 @@ fixBadUUID = M.fromList . map fixup . M.toList | otherwise = (k, v) where kuuid = fromUUID k - isbad = (not $ isuuid kuuid) && isuuid lastword + isbad = not (isuuid kuuid) && isuuid lastword ws = words $ value v lastword = last ws fixeduuid = toUUID lastword - fixedvalue = unwords $ kuuid:(take (length ws - 1) ws) + fixedvalue = unwords $ kuuid: init ws -- For the fixed line to take precidence, it should be -- slightly newer, but only slightly. newertime (LogEntry (Date d) _) = d + minimumPOSIXTimeSlice - newertime (LogEntry (Unknown) _) = minimumPOSIXTimeSlice + newertime (LogEntry Unknown _) = minimumPOSIXTimeSlice minimumPOSIXTimeSlice = 0.000001 isuuid s = length s == 36 && length (split "-" s) == 5 |