allow unit

Author: dsyme

src/FSharp.Control.AsyncSeq/AsyncSeq.fs

@@ -136,7 +136,7 @@ module AsyncSeq =
     //     do! something
     //
     // because F# translates body as Bind(something, fun () -> Return())
-    member x.Return() = empty
+    member x.Return _ = empty
     member x.YieldFrom(s) = s
     member x.Zero () = empty
     member x.Bind (inp:Async<'T>, body : 'T -> AsyncSeq<'U>) : AsyncSeq<'U> = 

src/FSharp.Control.AsyncSeq/AsyncSeq.fsi

@@ -59,7 +59,7 @@ module AsyncSeq =
         member For : seq:AsyncSeq<'T> * action:('T -> AsyncSeq<'TResult>) -> AsyncSeq<'TResult>
 
         /// Implements "return" for the asyncSeq computation builder.
-        member Return : unit -> AsyncSeq<'T>
+        member Return : 'unit -> AsyncSeq<'T> 
 
         /// Implements "try-finally" for the asyncSeq computation builder.
         member TryFinally : body:AsyncSeq<'T> * compensation:(unit -> unit) -> AsyncSeq<'T>

tests/FSharp.Control.AsyncSeq.Tests/AsyncSeqTests.fs

@@ -293,4 +293,13 @@ let ``AsyncSeq.skipUntil should not skip with completed signal``() =
 [<Test>]
 let ``AsyncSeq.skipUntil should skip everything with never signal``() =
   let actual = [1;2;3;4] |> AsyncSeq.ofSeq |> AsyncSeq.skipUntil AsyncOps.never
-  Assert.True(EQ AsyncSeq.empty actual)
+  Assert.True(EQ AsyncSeq.empty actual)
+
+[<Test>]
+let ``AsyncSeq.while should allow do at end``() =  
+  let s1 = asyncSeq {
+    while false do 
+        yield 1
+        do! Async.Sleep 10
+  }
+  Assert.True(true)