Rename ExceptionHandler.fs to ExceptionsHandler.fs

Jamil Maqdis Anton · Jamil Maqdis Anton · commit f0525cc70cbc · 2020-10-14T21:06:12.000+02:00
diff --git a/src/Append.fs b/src/Append.fs
@@ -9,12 +9,12 @@ module Append =
                          (messageDetails: MessageDetails)
                          : Async<Result<AppendResult, string>> =
         AppendRaw.appendNewMessage store streamName appendVersion messageDetails
-        |> ExceptionHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.simpleExceptionHandler 
 
     let appendNewMessages (store: SqlStreamStore.IStreamStore)
                           (streamName: StreamName)
                           (appendVersion: AppendVersion)
                           (messages: MessageDetails list)
                           : Async<Result<AppendResult, string>> =
         AppendRaw.appendNewMessages store streamName appendVersion messages
-        |> ExceptionHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.simpleExceptionHandler 
diff --git a/src/ExceptionsHandler.fs b/src/ExceptionsHandler.fs
@@ -1,4 +1,4 @@
-module ExceptionHandler
+module ExceptionsHandler
 
 let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
         op
diff --git a/src/Read.fs b/src/Read.fs
@@ -9,8 +9,8 @@ module Read =
                           (msgCount: MessageCount)
                           : Async<Result<ReadAllPage, string>> =
         ReadRaw.readFromAllStream store readingDirection startPositionInclusive msgCount
-        |> ExceptionHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.simpleExceptionHandler 
 
     let readFromStream store readingDirection streamName readVersion msgCount =
         ReadRaw.readFromStream store readingDirection streamName readVersion msgCount
-        |> ExceptionHandler.simpleExceptionHandler 
+        |> ExceptionsHandler.simpleExceptionHandler 
diff --git a/src/SqlStreamStore.FSharp.fsproj b/src/SqlStreamStore.FSharp.fsproj
@@ -12,7 +12,7 @@
 
     <ItemGroup>
         <Compile Include="AsyncExtras.fs" />
-        <Compile Include="ExceptionHandler.fs" />
+        <Compile Include="ExceptionsHandler.fs" />
         <Compile Include="Types.fs" />
         <Compile Include="AppendRaw.fs" />
         <Compile Include="ReadRaw.fs" />

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-module ExceptionHandler`
	`1`	`+module ExceptionsHandler`
`2`	`2`
`3`	`3`	`let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =`
`4`	`4`	`op`