diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-07-28 15:27:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-07-28 16:55:42 -0400 |
| commit | 217068206893864ed05911c3b06d8fdb802750a1 (patch) | |
| tree | 3bfa87ee63197405f3aa18138eb8affd3ce7c7e7 /Annex | |
| parent | 468e2c789371f924ec4586148e4e9e5618c58303 (diff) | |
importfeed: git-annex becomes a podcatcher in 150 LOC
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Branch.hs | 1 | ||||
| -rw-r--r-- | Annex/Direct.hs | 2 |
2 files changed, 2 insertions, 1 deletions
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 |