wibbles and minor version bump

snoyberg · Mar 17, 2017 · 450a7ab · 450a7ab
1 parent f8c8130
commit 450a7ab
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/gitrev.cabal b/gitrev.cabal
@@ -1,5 +1,5 @@
 name:                gitrev
-version:             1.3.0
+version:             1.3.1
 synopsis:            Compile git revision info into Haskell projects
 homepage:            https://github.com/acfoltzer/gitrev
 license:             BSD3

diff --git a/src/Development/GitRev.hs b/src/Development/GitRev.hs
@@ -66,7 +66,7 @@ runGit args def useIdx = do
   if gitFound
     then do
       -- a lot of bookkeeping to record the right dependencies
-      pwd <- runIO getGitDirectory
+      pwd <- runIO getDotGit
       let hd         = pwd </> ".git" </> "HEAD"
           index      = pwd </> ".git" </> "index"
           packedRefs = pwd </> ".git" </> "packed-refs"
@@ -121,7 +121,7 @@ getDotGit = do
 getGitRoot :: IO FilePath
 getGitRoot = do
   pwd <- getCurrentDirectory
-  (code, out, err) <-
+  (code, out, _) <-
     readProcessWithExitCode "git" ["rev-parse", "--show-toplevel"] ""
   case code of
     ExitSuccess   -> return $ takeWhile (/= '\n') out