Remove Extras module until fully it's fully functional

Author: Jamil Maqdis Anton

src/Append.fs

@@ -22,7 +22,7 @@ module Append =
         | AppendVersion.EmptyStream -> SqlStreamStore.Streams.ExpectedVersion.EmptyStream
         | AppendVersion.NoStream -> SqlStreamStore.Streams.ExpectedVersion.NoStream
         | AppendVersion.SpecificVersion version -> version
-    
+
     let appendNewMessage: SqlStreamStore.IStreamStore -> AppendStreamDetails -> MessageDetails -> Async<AppendResult> =
         fun store streamDetails messageDetails ->
             store.AppendToStream
@@ -40,19 +40,3 @@ module Append =
                  |> List.map newStreamMessageFromMessageDetails
                  |> List.toArray)
             |> Async.AwaitTask
-
-module AppendExtras =
-    let appendNewMessage: SqlStreamStore.IStreamStore -> AppendStreamDetails -> MessageDetails -> AsyncResult<AppendResult, AppendException> =
-        fun store streamDetails messageDetails ->
-            Append.appendNewMessage store streamDetails messageDetails
-            |> Async.Catch
-            |> Async.map (function
-                | Choice1Of2 response -> Ok response
-                | Choice2Of2 exn ->
-                    Error
-                    <| match exn with
-                       // TODO: make sense
-                       | :? System.AggregateException as exn ->
-                           exn.InnerException
-                           |> AppendException.WrongExpectedVersion
-                       | exn -> exn |> AppendException.Other)

src/Read.fs

@@ -52,32 +52,3 @@ module Read =
                      prefetchJson,
                      cancellationToken)
             |> Async.AwaitTask
-
-module ReadExtras =
-    let readAllStreamMessages: SqlStreamStore.IStreamStore -> ReadingDirection -> StartPositionInclusive -> MessageCount -> AsyncResult<List<StreamMessage>, string> =
-        fun store readingDirection startPositionInclusive msgCount ->
-            Read.readFromAllStreamAsync store readingDirection startPositionInclusive msgCount
-            |> Async.bind (fun readAllPage ->
-                readAllPage.Messages
-                |> Seq.toList
-                |> fun messageList ->
-                    if messageList.Length = msgCount then
-                        Ok messageList
-                    else
-                        Error
-                            (sprintf "Failed to retrieve all messages. Retrieved messages count: %d" messageList.Length)
-                |> AsyncResult.fromResult)
-
-    let readStreamMessages: SqlStreamStore.IStreamStore -> ReadingDirection -> ReadStreamDetails -> MessageCount -> AsyncResult<List<StreamMessage>, string> =
-        fun store readingDirection readStreamDetails msgCount ->
-            Read.readFromStreamAsync store readingDirection readStreamDetails msgCount
-            |> Async.bind (fun readStreamPage ->
-                readStreamPage.Messages
-                |> Seq.toList
-                |> fun messageList ->
-                    if messageList.Length = msgCount then
-                        Ok messageList
-                    else
-                        Error
-                            (sprintf "Failed to retrieve all messages. Retrieved messages count: %d" messageList.Length)
-                |> AsyncResult.fromResult)