From 217068206893864ed05911c3b06d8fdb802750a1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 28 Jul 2013 15:27:36 -0400
Subject: importfeed: git-annex becomes a podcatcher in 150 LOC

---
 Annex/Branch.hs | 1 +
 Annex/Direct.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'Annex')

diff --git a/Annex/Branch.hs b/Annex/Branch.hs
index 1c260ff7e..bc3736a9a 100644
--- a/Annex/Branch.hs
+++ b/Annex/Branch.hs
@@ -21,6 +21,7 @@ module Annex.Branch (
 	change,
 	commit,
 	files,
+	withIndex,
 ) where
 
 import qualified Data.ByteString.Lazy.Char8 as L
diff --git a/Annex/Direct.hs b/Annex/Direct.hs
index cf5806ad6..d2e2cdc00 100644
--- a/Annex/Direct.hs
+++ b/Annex/Direct.hs
@@ -35,7 +35,7 @@ stageDirect :: Annex Bool
 stageDirect = do
 	Annex.Queue.flush
 	top <- fromRepo Git.repoPath
-	(l, cleanup) <- inRepo $ Git.LsFiles.stagedDetails [top]
+	(l, cleanup) <- inRepo $ Git.LsFiles.stagedOthersDetails [top]
 	forM_ l go
 	void $ liftIO cleanup
 	staged <- Annex.Queue.size
-- 
cgit v1.2.3