Handle exceptions thrown by reading and appending

Author: Jamil Maqdis Anton

src/ExceptionHandler.fs

@@ -0,0 +1,8 @@
+module ExceptionHandler
+
+let simpleExceptionHandler (op: Async<'res>): Async<Result<'res, string>> =
+        op
+        |> Async.Catch
+        |> Async.map (function
+            | Choice1Of2 response -> Ok response
+            | Choice2Of2 exn -> Error exn.Message)