From b7e0d39abbc9a09c21c6f0103ad6c9f4547f81fe Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 15 Dec 2011 16:59:48 -0400 Subject: remove some partial functions A few were too hard to get rid of, and safe since the code does check for an empty line. --- Logs/UUIDBased.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'Logs') diff --git a/Logs/UUIDBased.hs b/Logs/UUIDBased.hs index 04b12887d..b09d93f90 100644 --- a/Logs/UUIDBased.hs +++ b/Logs/UUIDBased.hs @@ -64,15 +64,15 @@ parseLog parser = M.fromListWith best . mapMaybe parse . lines where makepair v = Just (toUUID u, LogEntry ts v) ws = words line - u = head ws - end = last ws + u = Prelude.head ws + t = Prelude.last ws ts - | tskey `isPrefixOf` end = - pdate $ tail $ dropWhile (/= '=') end + | tskey `isPrefixOf` t = + pdate $ drop 1 $ dropWhile (/= '=') t | otherwise = Unknown info | ts == Unknown = drop 1 ws - | otherwise = drop 1 $ init ws + | otherwise = drop 1 $ beginning ws pdate s = case parseTime defaultTimeLocale "%s%Qs" s of Nothing -> Unknown Just d -> Date $ utcTimeToPOSIXSeconds d -- cgit v1.2.3