File tree 2 files changed +3
-3
lines changed
2 files changed +3
-3
lines changed Original file line number Diff line number Diff line change 1
1
name : gitrev
2
- version : 1.3.0
2
+ version : 1.3.1
3
3
synopsis : Compile git revision info into Haskell projects
4
4
homepage : https://github.com/acfoltzer/gitrev
5
5
license : BSD3
Original file line number Diff line number Diff line change @@ -66,7 +66,7 @@ runGit args def useIdx = do
66
66
if gitFound
67
67
then do
68
68
-- a lot of bookkeeping to record the right dependencies
69
- pwd <- runIO getGitDirectory
69
+ pwd <- runIO getDotGit
70
70
let hd = pwd </> " .git" </> " HEAD"
71
71
index = pwd </> " .git" </> " index"
72
72
packedRefs = pwd </> " .git" </> " packed-refs"
@@ -121,7 +121,7 @@ getDotGit = do
121
121
getGitRoot :: IO FilePath
122
122
getGitRoot = do
123
123
pwd <- getCurrentDirectory
124
- (code, out, err ) <-
124
+ (code, out, _ ) <-
125
125
readProcessWithExitCode " git" [" rev-parse" , " --show-toplevel" ] " "
126
126
case code of
127
127
ExitSuccess -> return $ takeWhile (/= ' \n ' ) out
You can’t perform that action at this time.
0 commit comments