git-remote-annex: fix hang on fetch
Sponsored-by: k0ld on Patreon
This commit is contained in:
parent
cdcf2fe3a2
commit
df5011ec43
1 changed files with 4 additions and 0 deletions
|
@ -147,6 +147,10 @@ fetch' st rmt = do
|
|||
manifest <- maybe (downloadManifest rmt) pure (manifestCache st)
|
||||
forM_ (inManifest manifest) $ \k ->
|
||||
downloadGitBundle rmt k >>= inRepo . Git.Bundle.unbundle
|
||||
-- Newline indicates end of fetch.
|
||||
liftIO $ do
|
||||
putStrLn ""
|
||||
hFlush stdout
|
||||
|
||||
push :: State -> Remote -> [String] -> Annex [String]
|
||||
push st rmt ls = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue