Remove InvalidMonoHopUnidirectionalPaymentError.Create method

Author: canndrew

src/DotNetLightning.Core/Channel/ChannelError.fs

@@ -151,11 +151,7 @@ and InvalidMonoHopUnidirectionalPaymentError = {
     Msg: MonoHopUnidirectionalPayment
     Errors: string list
 }
-    with
-    static member Create msg e = {
-        Msg = msg
-        Errors = e
-    }
+
 and InvalidUpdateAddHTLCError = {
     Msg: UpdateAddHTLC
     Errors: string list

src/DotNetLightning.Core/Channel/ChannelValidation.fs

@@ -175,11 +175,11 @@ module internal Validation =
 
     let checkOurMonoHopUnidirectionalPaymentIsAcceptableWithCurrentSpec (currentSpec) (state: Commitments) (payment: MonoHopUnidirectionalPayment) =
         Validation.ofResult(MonoHopUnidirectionalPaymentValidationWithContext.checkWeHaveSufficientFunds state currentSpec)
-        |> Result.mapError(InvalidMonoHopUnidirectionalPaymentError.Create payment >> InvalidMonoHopUnidirectionalPayment)
+        |> Result.mapError(fun errs -> InvalidMonoHopUnidirectionalPayment { Msg = payment; Errors = errs })
 
     let checkTheirMonoHopUnidirectionalPaymentIsAcceptableWithCurrentSpec (currentSpec) (state: Commitments) (payment: MonoHopUnidirectionalPayment) =
         Validation.ofResult(MonoHopUnidirectionalPaymentValidationWithContext.checkWeHaveSufficientFunds state currentSpec)
-        |> Result.mapError(InvalidMonoHopUnidirectionalPaymentError.Create payment >> InvalidMonoHopUnidirectionalPayment)
+        |> Result.mapError(fun errs -> InvalidMonoHopUnidirectionalPayment { Msg = payment; Errors = errs })
 
     let checkOperationAddHTLC (state: NormalData) (op: OperationAddHTLC) =
         Validation.ofResult(UpdateAddHTLCValidation.checkExpiryIsNotPast op.CurrentHeight op.Expiry)