File tree Expand file tree Collapse file tree
FSharp.Control.TaskSeq.SmokeTests
FSharp.Control.TaskSeq.Test Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -24,6 +24,8 @@ type µs
2424/// Inspired by IoT code: https://github.com/dotnet/iot/pull/235/files
2525module DelayHelper =
2626
27+ let private rnd = Random()
28+
2729 /// <summary >
2830 /// Delay for at least the specified <paramref name =" microseconds " />.
2931 /// </summary >
@@ -50,7 +52,6 @@ module DelayHelper =
5052 Thread.SpinWait( 1 )
5153
5254 let delayTask ( µsecMin : int64 < µs >) ( µsecMax : int64 < µs >) f = task {
53- let rnd = Random()
5455 let rnd () = rnd.NextInt64( int64 µsecMin, int64 µsecMax) * 1 L< µs>
5556
5657 // ensure unequal running lengths and points-in-time for assigning the variable
Original file line number Diff line number Diff line change @@ -24,6 +24,8 @@ type µs
2424/// Inspired by IoT code: https://github.com/dotnet/iot/pull/235/files
2525module DelayHelper =
2626
27+ let private rnd = Random()
28+
2729 /// <summary >
2830 /// Delay for at least the specified <paramref name =" microseconds " />.
2931 /// </summary >
@@ -50,7 +52,6 @@ module DelayHelper =
5052 Thread.SpinWait( 1 )
5153
5254 let delayTask ( µsecMin : int64 < µs >) ( µsecMax : int64 < µs >) f = task {
53- let rnd = Random()
5455 let rnd () = rnd.NextInt64( int64 µsecMin, int64 µsecMax) * 1 L< µs>
5556
5657 // ensure unequal running lengths and points-in-time for assigning the variable
You can’t perform that action at this time.
0 commit comments