@@ -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
121121getGitRoot :: IO FilePath
122122getGitRoot = 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