mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove some partial functions

Browse source 
A few were too hard to get rid of, and safe since the code
does check for an empty line.
This commit is contained in:
Joey Hess 2011-12-15 16:59:48 -04:00
parent 817b1936e6
commit b7e0d39abb
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Logs/UUIDBased.hs
View file

@ -64,15 +64,15 @@ parseLog parser = M.fromListWith best . mapMaybe parse . lines
where where
makepair v = Just (toUUID u, LogEntry ts v) makepair v = Just (toUUID u, LogEntry ts v)
ws = words line ws = words line
u = head ws u = Prelude.head ws
end = last ws t = Prelude.last ws
ts ts
| tskey `isPrefixOf` end = | tskey `isPrefixOf` t =
pdate $ tail $ dropWhile (/= '=') end pdate $ drop 1 $ dropWhile (/= '=') t
| otherwise = Unknown | otherwise = Unknown
info info
| ts == Unknown = drop 1 ws | ts == Unknown = drop 1 ws
| otherwise = drop 1 $ init ws | otherwise = drop 1 $ beginning ws
pdate s = case parseTime defaultTimeLocale "%s%Qs" s of pdate s = case parseTime defaultTimeLocale "%s%Qs" s of
Nothing -> Unknown Nothing -> Unknown
Just d -> Date $ utcTimeToPOSIXSeconds d Just d -> Date $ utcTimeToPOSIXSeconds d