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

remove some more !!

Browse source
This commit is contained in:
Joey Hess 2012-10-18 00:45:22 -04:00
parent 813b28aa49
commit b281584422
2 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Command/Log.hs
View file

@ -159,11 +159,10 @@ readLog = mapMaybe (parse . lines)
-- Parses something like ":100644 100644 oldsha newsha M"
parseRaw :: String -> (Git.Ref, Git.Ref)
parseRaw l = (Git.Ref oldsha, Git.Ref newsha)
parseRaw l = go $ words l
where
ws = words l
oldsha = ws !! 2
newsha = ws !! 3
go (_:_:oldsha:newsha:_) = (Git.Ref oldsha, Git.Ref newsha)
go _ = error $ "unable to parse git log output: " ++ l
parseTimeStamp :: String -> POSIXTime
parseTimeStamp = utcTimeToPOSIXSeconds . fromMaybe (error "bad timestamp") .