Reorganize functional asp.net core extensions

src/Codehard.Functional/Codehard.Functional.AspNetCore.Tests/AsyncEffectExtensionTests.cs

@@ -1,4 +1,5 @@
 using System.Net;
+using Codehard.Functional.AspNetCore.Errors;
 using LanguageExt.Common;
 using static LanguageExt.Prelude;
 

src/Codehard.Functional/Codehard.Functional.AspNetCore.Tests/ControllerExtensionTests.cs

@@ -1,4 +1,7 @@
 using System.Net;
+using Codehard.Functional.AspNetCore.ActionResults;
+using Codehard.Functional.AspNetCore.Errors;
+using Codehard.Functional.AspNetCore.Extensions;
 using Microsoft.AspNetCore.Http;
 using Microsoft.AspNetCore.Mvc;
 using Moq;

src/Codehard.Functional/Codehard.Functional.AspNetCore.Tests/EffectExtensionTests.cs

@@ -1,4 +1,5 @@
 using System.Net;
+using Codehard.Functional.AspNetCore.Errors;
 using LanguageExt.Common;
 using static LanguageExt.Prelude;
 

src/Codehard.Functional/Codehard.Functional.AspNetCore/ErrorWrapperActionResult.cs → src/Codehard.Functional/Codehard.Functional.AspNetCore/ActionResults/ErrorWrapperActionResult.cs

@@ -1,6 +1,7 @@
 using System.Dynamic;
+using Codehard.Functional.AspNetCore.Errors;
 
-namespace Codehard.Functional.AspNetCore;
+namespace Codehard.Functional.AspNetCore.ActionResults;
 
 /// <summary>
 /// An <see cref="IActionResult"/> that wraps an <see cref="HttpResultError"/> object and
@@ -65,6 +66,8 @@ await this.Error.Data
 
                     return Task.CompletedTask;
                 });
+
+        return;
 
         ObjectResult AddErrorInfo(ObjectResult objectResult)
         {

src/Codehard.Functional/Codehard.Functional.AspNetCore/Codehard.Functional.AspNetCore.csproj

@@ -27,4 +27,7 @@
         </AssemblyAttribute>
     </ItemGroup>
 
+
+
+
 </Project>

src/Codehard.Functional/Codehard.Functional.AspNetCore/Commons.cs

@@ -2,94 +2,17 @@
 
 public static class Commons
 {
-    public static Error Flatten(this Seq<Error> errors, int errorCode, char sep = '\n')
-        => Error.New(errorCode, string.Concat(sep, errors.Map(e => e.Message)));
-
-    internal static Aff<A> MapFailToHttpResultError<A>(
-        this Aff<A> ma,
-        HttpStatusCode code,
-        Option<string> errorCode = default,
-        Option<string> messageOpt = default,
-        Option<object> data = default,
-        bool @override = true)
-        => ma.MapFail(err =>
-        {
-            var message = messageOpt.IfNone(string.Empty);
-
-            return
-                err switch
-                {
-                    HttpResultError hre when !@override => hre,
-                    _ => 
-                        HttpResultError.New(
-                            code, message, errorCode, data, err),
-                };
-        });
-
-    internal static Aff<A> MapFailToHttpResultError<A>(
-        this Aff<A> ma,
-        HttpStatusCode code,
-        Func<Error, string> messageFunc,
-        Option<string> errorCode = default,
-        Option<object> data = default,
-        bool @override = true)
-        => ma.MapFail(err =>
-        {
-            return
-                err switch
-                {
-                    HttpResultError hre when !@override => hre,
-                    _ => 
-                        HttpResultError.New(
-                            code,
-                            messageFunc(err),
-                            errorCode,
-                            data,
-                            err),
-                };
-        });
-
-    internal static Eff<A> MapFailToHttpResultError<A>(
-        this Eff<A> ma,
-        HttpStatusCode code,
-        Option<string> errorCode = default,
-        Option<string> messageOpt = default,
-        Option<object> data = default,
-        bool @override = true)
-        => ma.MapFail(err =>
-        {
-            var message = messageOpt.IfNone(string.Empty);
-
-            return
-                err switch
-                {
-                    HttpResultError hre when !@override => hre,
-                    _ => 
-                        HttpResultError.New(
-                            code, message, errorCode, data, err),
-                };
-        });
-
-    internal static Eff<A> MapFailToHttpResultError<A>(
-        this Eff<A> ma,
-        HttpStatusCode code,
-        Func<Error, string> messageFunc,
-        Option<string> errorCode = default,
-        Option<object> data = default,
-        bool @override = true)
-        => ma.MapFail(err =>
-        {
-            return
-                err switch
+    internal static IActionResult MapToActionResult<T>(HttpStatusCode statusCode, T result)
+    {
+        return
+            result switch
+            {
+                IActionResult ar => ar,
+                Unit => new StatusCodeResult((int)statusCode),
+                _ => new ObjectResult(result)
                 {
-                    HttpResultError hre when !@override => hre,
-                    _ => 
-                        HttpResultError.New(
-                            code,
-                            messageFunc(err),
-                            errorCode,
-                            data,
-                            err),
-                };
-        });
+                    StatusCode = (int)statusCode,
+                },
+            };
+    }
 }

src/Codehard.Functional/Codehard.Functional.AspNetCore/Errors/ActionResultError.cs

@@ -0,0 +1,36 @@
+namespace Codehard.Functional.AspNetCore.Errors;
+
+/// <summary>
+/// An HTTP error object.
+/// </summary>
+public record ActionResultError : Error
+{
+    private readonly IActionResult actionResult;
+
+    private ActionResultError(IActionResult actionResult)
+    {
+        this.actionResult = actionResult;
+        Message = string.Empty;
+    }
+
+    public override bool Is<E>() => false;
+
+    public override ErrorException ToErrorException()
+    {
+        throw new NotSupportedException();
+    }
+
+    public override string Message { get; }
+
+    public override bool IsExceptional => false;
+
+    public override bool IsExpected => true;
+
+    public IActionResult ActionResult => actionResult;
+
+    public static ActionResultError New(
+        IActionResult actionResult)
+    {
+        return new ActionResultError(actionResult);
+    }
+}

src/Codehard.Functional/Codehard.Functional.AspNetCore/HttpResultError.cs → src/Codehard.Functional/Codehard.Functional.AspNetCore/Errors/HttpResultError.cs

@@ -1,6 +1,6 @@
 using System.Runtime.Serialization;
 
-namespace Codehard.Functional.AspNetCore;
+namespace Codehard.Functional.AspNetCore.Errors;
 
 /// <summary>
 /// An HTTP error object.