Merge branch 'develop'

dustinmoris · Nov 9, 2021 · 10d5758 · 10d5758
2 parents 293c551 + 40fc2df
commit 10d5758
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/BuildStats/BuildHistoryCharts.fs b/src/BuildStats/BuildHistoryCharts.fs
@@ -38,7 +38,7 @@ module BuildStatsHelper =
         inclFromPullRequest || not build.FromPullRequest
 
     let timeTaken (started   : Nullable<DateTime>)
-                           (finished  : Nullable<DateTime>) =
+                  (finished  : Nullable<DateTime>) =
         match started.HasValue with
         | true ->
             match finished.HasValue with
@@ -59,6 +59,7 @@ module BuildMetrics =
         | 0 -> TimeSpan.Zero
         | _ ->
             builds
+            |> List.filter (fun b -> b.Status = Success)
             |> List.maxBy (fun x -> x.TimeTaken.TotalMilliseconds)
             |> fun x -> x.TimeTaken
 
@@ -67,6 +68,7 @@ module BuildMetrics =
         | 0 -> TimeSpan.Zero
         | _ ->
             builds
+            |> List.filter (fun b -> b.Status = Success)
             |> List.minBy (fun x -> x.TimeTaken.TotalMilliseconds)
             |> fun x -> x.TimeTaken
 
@@ -75,6 +77,7 @@ module BuildMetrics =
         | 0 -> TimeSpan.Zero
         | _ ->
             builds
+            |> List.filter (fun b -> b.Status = Success)
             |> List.averageBy (fun x -> x.TimeTaken.TotalMilliseconds)
             |> TimeSpan.FromMilliseconds