updat

Backend/SHA1.hs

@@ -14,6 +14,7 @@ import System.IO
 
 import qualified Backend.File
 import TypeInternals
+import Core
 
 backend :: Backend
 backend = Backend.File.backend {
@@ -23,7 +24,9 @@ backend = Backend.File.backend {
 
 -- checksum the file to get its key
 keyValue :: FilePath -> Annex (Maybe Key)
-keyValue file = liftIO $ pOpen ReadFromPipe "sha1sum" [file] $ \h -> do
+keyValue file = do
+	showNote "checksum"
+	liftIO $ pOpen ReadFromPipe "sha1sum" [file] $ \h -> do
 		line <- hGetLine h
 		let bits = split " " line
 		if (null bits)

GitRepo.hs

@@ -149,7 +149,7 @@ attributes repo
 {- Looks up a gitattributes value for each file in a list. -}
 checkAttr :: Repo -> String -> [FilePath] -> IO [(FilePath, String)]
 checkAttr repo attr files = do
-	(handle, s) <- pipeBoth "git" params files0
+	(_, s) <- pipeBoth "git" params files0
 	return $ map topair $ lines s
 	-- XXX handle is left open, this is ok for git-annex, but may need
 	-- to be cleaned up for other uses.