Skip to content

Commit 450a7ab

Browse files
author
Adam C. Foltzer
committed
wibbles and minor version bump
1 parent f8c8130 commit 450a7ab

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

gitrev.cabal

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
name: gitrev
2-
version: 1.3.0
2+
version: 1.3.1
33
synopsis: Compile git revision info into Haskell projects
44
homepage: https://github.com/acfoltzer/gitrev
55
license: BSD3

src/Development/GitRev.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -66,7 +66,7 @@ runGit args def useIdx = do
6666
if gitFound
6767
then do
6868
-- a lot of bookkeeping to record the right dependencies
69-
pwd <- runIO getGitDirectory
69+
pwd <- runIO getDotGit
7070
let hd = pwd </> ".git" </> "HEAD"
7171
index = pwd </> ".git" </> "index"
7272
packedRefs = pwd </> ".git" </> "packed-refs"
@@ -121,7 +121,7 @@ getDotGit = do
121121
getGitRoot :: IO FilePath
122122
getGitRoot = do
123123
pwd <- getCurrentDirectory
124-
(code, out, err) <-
124+
(code, out, _) <-
125125
readProcessWithExitCode "git" ["rev-parse", "--show-toplevel"] ""
126126
case code of
127127
ExitSuccess -> return $ takeWhile (/= '\n') out

0 commit comments

Comments
 (0)