Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fixed regression in 'latest' in Git module.

Ignore-this: 4d9e2c807cf2275d4b79eed7c6a84cf2

darcs-hash:20120523050613-0f649-07e10d40e42449dc1ce04f1e88b764c5f24ef0f6.gz
  • Loading branch information...
commit 1743aeee0d916fd77bff9b343005efa2640094c9 1 parent 326dc68
@jgm authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Data/FileStore/Git.hs
View
2  Data/FileStore/Git.hs
@@ -156,7 +156,7 @@ gitGetRevision :: FilePath -> RevisionId -> IO Revision
gitGetRevision repo revid = do
(status, _, output) <- runGitCommand repo "whatchanged" ["-z","--pretty=format:" ++ gitLogFormat, "--max-count=1", revid]
if status == ExitSuccess
- then parseLogEntry output
+ then parseLogEntry $ B.drop 1 output -- drop initial \1
else throwIO NotFound
-- | Get a list of all known files inside and managed by a repository.
Please sign in to comment.
Something went wrong with that request. Please try again.