fix: fetchcommits and terminates expnential deepening if no commits f…

…etched (#330)
LoopPerfect · Mar 3, 2019 · 432ac62 · 432ac62
1 parent 281b0fc
commit 432ac62
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/buckaroo/DefaultSourceExplorer.fs b/buckaroo/DefaultSourceExplorer.fs
@@ -101,7 +101,7 @@ type DefaultSourceExplorer (console : ConsoleManager, downloadManager : Download
     match maybeBranchRef with
     | Some branchRef ->
       yield branchRef.Revision
-      yield! gitManager.FetchCommits url branchRef.Revision
+      yield! gitManager.FetchCommits url branchRef.Name
       ()
     | None -> ()
   }

diff --git a/buckaroo/GitCli.fs b/buckaroo/GitCli.fs
@@ -222,6 +222,7 @@ type GitCli (console : ConsoleManager) =
                 return (skip + (nextList |> List.length), nextList, fetchNext)
               })
               ( 0, List.empty, async { return () } )
+          |> AsyncSeq.takeWhile (fun (_, revs, _) -> revs.Length > 0)
           |> AsyncSeq.collect (fun (_, revs, fetchNext) -> asyncSeq {
             yield! revs |> AsyncSeq.ofSeq
             do! fetchNext