Skip to content

Commit

Permalink
Address warning
Browse files Browse the repository at this point in the history
  • Loading branch information
bartelink authored and abelbraaksma committed Dec 24, 2023
1 parent d39ee56 commit f2ec71f
Showing 1 changed file with 6 additions and 5 deletions.
11 changes: 6 additions & 5 deletions src/FSharp.Control.TaskSeq.Test/TaskSeq.MaxMin.Tests.fs
Original file line number Diff line number Diff line change
Expand Up @@ -296,7 +296,7 @@ module SideSeffects =
}

[<Theory; ClassData(typeof<JustMinMaxBy>)>]
let ``TaskSeq-minBy, maxBy with sequence that changes length`` (minMax: MinMax) = task {
let ``TaskSeq-minBy, maxBy with sequence that changes length`` (minMax: MinMax) =
let mutable i = 0

let ts = taskSeq {
Expand All @@ -311,7 +311,8 @@ module SideSeffects =
else
minMaxFn id ts |> Task.map (should equal v)

do! test (MinMax.getByFunction minMax) 10
do! test (MinMax.getByFunction minMax) 20
do! test (MinMax.getByFunction minMax) 30
}
task {
do! test (MinMax.getByFunction minMax) 10
do! test (MinMax.getByFunction minMax) 20
do! test (MinMax.getByFunction minMax) 30
}

0 comments on commit f2ec71f

Please sign in to comment.