@@ -66,7 +66,7 @@ runGit args def useIdx = do
66 if gitFound
66 if gitFound
68 -- a lot of bookkeeping to record the right dependencies
68 -- a lot of bookkeeping to record the right dependencies
69− pwd <- runIO getGitDirectory
69+ pwd <- runIO getDotGit
70 let hd = pwd </> ".git" </> "HEAD"
70 let hd = pwd </> ".git" </> "HEAD"
71 index = pwd </> ".git" </> "index"
71 index = pwd </> ".git" </> "index"
72 packedRefs = pwd </> ".git" </> "packed-refs"
72 packedRefs = pwd </> ".git" </> "packed-refs"
@@ -121,7 +121,7 @@ getDotGit = do
121getGitRoot :: IO FilePath
121getGitRoot :: IO FilePath
122getGitRoot = do
122getGitRoot = do
123 pwd <- getCurrentDirectory
123 pwd <- getCurrentDirectory
124− (code, out, err) <-
124+ (code, out, _) <-
125 readProcessWithExitCode "git" ["rev-parse", "--show-toplevel"] ""
125 readProcessWithExitCode "git" ["rev-parse", "--show-toplevel"] ""
126 case code of
126 case code of
127 ExitSuccess -> return $ takeWhile (/= '\n') out
127 ExitSuccess -> return $ takeWhile (/= '\n') out