summaryrefslogtreecommitdiff
path: root/Logs/UUID.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-09 01:57:13 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-09 01:57:13 -0400
commitd64132a43ae176e8a1353d5463c5387a93da9ad7 (patch)
treeb98b328a292807c00e4b9590e7cf3094ec176a49 /Logs/UUID.hs
parente3f1568e0ff7dc872f3782115c74b9e7d8c291b2 (diff)
hslint
Diffstat (limited to 'Logs/UUID.hs')
-rw-r--r--Logs/UUID.hs6
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