Rename simpleExceptionHandler to asyncExceptionHandler

Author: Jamil Maqdis Anton

src/Append.fs

@@ -9,12 +9,12 @@ module Append =
                          (messageDetails: MessageDetails)
                          : Async<Result<AppendResult, string>> =
         AppendRaw.appendNewMessage store streamName appendVersion messageDetails
-        |> ExceptionsHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.asyncExceptionHandler 
 
     let appendNewMessages (store: SqlStreamStore.IStreamStore)
                           (streamName: string)
                           (appendVersion: AppendVersion)
                           (messages: MessageDetails list)
                           : Async<Result<AppendResult, string>> =
         AppendRaw.appendNewMessages store streamName appendVersion messages
-        |> ExceptionsHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.asyncExceptionHandler 

src/ExceptionsHandler.fs

@@ -4,7 +4,7 @@ module Async =
     let map f m = async.Bind(m, (f >> async.Return))
 
 module ExceptionsHandler =
-    let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
+    let asyncExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
         op
         |> Async.Catch
         |> Async.map (function

src/Postgres.fs

@@ -66,4 +66,4 @@ module Postgres =
     let createSchema (store: SqlStreamStore.PostgresStreamStore): Async<Result<unit, string>> =
         store.CreateSchemaIfNotExists()
         |> Async.AwaitTask
-        |> ExceptionsHandler.simpleExceptionHandler
+        |> ExceptionsHandler.asyncExceptionHandler

src/Read.fs

@@ -9,7 +9,7 @@ module Read =
                           (msgCount: int)
                           : Async<Result<ReadAllPage, string>> =
         ReadRaw.readFromAllStream store readingDirection startPositionInclusive msgCount
-        |> ExceptionsHandler.simpleExceptionHandler
+        |> ExceptionsHandler.asyncExceptionHandler
 
     let readFromStream (store: SqlStreamStore.IStreamStore)
                        (readingDirection: ReadingDirection)
@@ -18,15 +18,15 @@ module Read =
                        (msgCount: int)
                        : Async<Result<ReadStreamPage, string>> =
         ReadRaw.readFromStream store readingDirection streamName readVersion msgCount
-        |> ExceptionsHandler.simpleExceptionHandler
+        |> ExceptionsHandler.asyncExceptionHandler
 
     let readFromAllStreamAndPrefetchJsonData (store: SqlStreamStore.IStreamStore)
                                              (readingDirection: ReadingDirection)
                                              (startPositionInclusive: StartPosition)
                                              (msgCount: int)
                                              : Async<Result<ReadAllPage, string>> =
         ReadRaw.readFromAllStream' store readingDirection startPositionInclusive msgCount true
-        |> ExceptionsHandler.simpleExceptionHandler
+        |> ExceptionsHandler.asyncExceptionHandler
 
     let readFromStreamAndPrefetchJsonData (store: SqlStreamStore.IStreamStore)
                                           (readingDirection: ReadingDirection)
@@ -35,4 +35,4 @@ module Read =
                                           (msgCount: int)
                                           : Async<Result<ReadStreamPage, string>> =
         ReadRaw.readFromStream' store readingDirection streamName readVersion msgCount true
-        |> ExceptionsHandler.simpleExceptionHandler
+        |> ExceptionsHandler.asyncExceptionHandler