type mismatch error for async chained operations
问题 Previously had a very compact and comprehensive answer for my question. I had it working for my custom type but now due to some reason I had to change it to string type which is now causing type mismatch errors. module AsyncResult = let bind (binder : 'a -> Async<Result<'b, 'c>>) (asyncFun : Async<Result<'a, 'c>>) : Async<Result<'b, 'c>> = async { let! result = asyncFun match result with | Error e -> return Error e | Ok x -> return! binder x } let compose (f : 'a -> Async<Result<'b, 'e>>) (g