From de5fdb11a238249c1b9b89a29277777a09f1cdb9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 22 Oct 2013 14:52:17 -0400
Subject: clean warnings

---
 Git/RecoverRepository.hs | 16 ++++++++--------
 Git/RefLog.hs            |  1 -
 2 files changed, 8 insertions(+), 9 deletions(-)

(limited to 'Git')

diff --git a/Git/RecoverRepository.hs b/Git/RecoverRepository.hs
index a109896e7..0563c636b 100644
--- a/Git/RecoverRepository.hs
+++ b/Git/RecoverRepository.hs
@@ -228,7 +228,7 @@ getAllRefs :: Repo -> IO [Ref]
 getAllRefs r = do
 	packedrs <- mapMaybe parsePacked . lines
 		<$> catchDefaultIO "" (readFile $ packedRefsFile r)
-	loosers <- map toref <$> dirContentsRecursive (localGitDir r </> "refs")
+	loosers <- map toref <$> dirContentsRecursive refdir
 	return $ packedrs ++ loosers
   where
   	refdir = localGitDir r </> "refs"
@@ -335,9 +335,9 @@ verifyCommit missing goodcommits commit r
 			<*> extractSha treesha
 		_ -> Nothing
 	check [] = return True
-	check ((commit, tree):rest)
-		| checkGoodCommit commit goodcommits = return True
-		| otherwise = verifyTree missing tree r <&&> check rest
+	check ((c, t):rest)
+		| checkGoodCommit c goodcommits = return True
+		| otherwise = verifyTree missing t r <&&> check rest
 
 {- Verifies that a tree is good, including all trees and blobs
  - referenced by it. -}
@@ -361,13 +361,13 @@ rewriteIndex missing r
 	| repoIsLocalBare r = return []
 	| otherwise = do
 		(indexcontents, cleanup) <- LsFiles.stagedDetails [Git.repoPath r] r
-		let (missing, present) = partition ismissing indexcontents
-		unless (null missing) $ do
+		let (bad, good) = partition ismissing indexcontents
+		unless (null bad) $ do
 			nukeFile (localGitDir r </> "index")
 			UpdateIndex.streamUpdateIndex r
-				=<< (catMaybes <$> mapM reinject present)
+				=<< (catMaybes <$> mapM reinject good)
 		void cleanup
-		return $ map fst3 missing
+		return $ map fst3 bad
   where
 	getblob (_file, Just sha, Just _mode) = Just sha
 	getblob _ = Nothing
diff --git a/Git/RefLog.hs b/Git/RefLog.hs
index 7502f14b3..3f41e8eaa 100644
--- a/Git/RefLog.hs
+++ b/Git/RefLog.hs
@@ -11,7 +11,6 @@ import Common
 import Git
 import Git.Command
 import Git.Sha
-import Git.CatFile
 
 {- Gets the reflog for a given branch. -}
 get :: Branch -> Repo -> IO [Sha]
-- 
cgit v1.2.3