removed old version

Author: Jamil Maqdis Anton

src/Read.fs

@@ -25,18 +25,7 @@ module Read =
             |> Async.AwaitTask
 
 module ReadExtras =
-    let readStreamMessages: IStreamStore -> ReadingDirection -> StreamDetails -> int -> Result<List<StreamMessage>, string> =
-        fun store direction stream msgCount ->
-            Read.readFromStreamAsync store direction stream msgCount
-            |> Async.RunSynchronously
-            |> fun readStreamPage -> readStreamPage.Messages
-            |> Seq.toList
-            |> fun messageList ->
-                if messageList.Length = msgCount
-                then Ok messageList
-                else Error(sprintf "Failed to retrieve all messages. Messages retrieved count: %d" messageList.Length)
-
-    let readStreamMessages': IStreamStore -> ReadingDirection -> StreamDetails -> int -> AsyncResult<List<StreamMessage>, string> =
+    let readStreamMessages: IStreamStore -> ReadingDirection -> StreamDetails -> int -> AsyncResult<List<StreamMessage>, string> =
         fun store direction stream msgCount ->
             Read.readFromStreamAsync store direction stream msgCount
             |> Async.bind (fun readStreamPage ->