Fixed regression in 'latest' in Git module.

Ignore-this: 4d9e2c807cf2275d4b79eed7c6a84cf2 darcs-hash:20120523050613-0f649-07e10d40e42449dc1ce04f1e88b764c5f24ef0f6.gz
jgm · May 23, 2012 · 1743aee · 1743aee
1 parent 326dc68
commit 1743aee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/FileStore/Git.hs b/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.