在C#中使用F#类型

本文关键字:类型 | 更新日期: 2023-09-27 18:28:53

我有一个C#web api,用来访问F#库。我已经创建了一个我想要返回的类型的DU,并使用模式匹配来选择返回到c#控制器的DU。

在C#控制器中,如何访问从函数调用返回到F#库的类型的数据?

C#控制器

public HttpResponseMessage Post()
{
    var _result = Authentication.GetAuthBehaviour();
    //Access item1 of my tuple
    var _HTTPStatusCode = (HttpStatusCode)_result.item1;
    //Access item2 of my tuple
    var _body = (HttpStatusCode)_result.item2;
    return base.Request.CreateResponse(_HTTPStatusCode, _body);
}

F#类型

module Types =
    [<JsonObject(MemberSerialization=MemberSerialization.OptOut)>]
    [<CLIMutable>]
    type ValidResponse = {
         odata: string;
         token: string; 
    }
    [<JsonObject(MemberSerialization=MemberSerialization.OptOut)>]
    [<CLIMutable>]
    type ErrorResponse = {
         code: string;
         message: string;
         url: string; 
    }
    type AuthenticationResponse = 
    | Valid of int * ValidResponse
    | Error of int * ErrorResponse

F#功能

module Authentication = 
    open Newtonsoft.Json
    let GetAuthBehaviour () =
        let behaviour = GetBehaviour.Value.authentication
        match behaviour.statusCode with
        | 200 ->
            let deserializedAuthenticationResponse = JsonConvert.DeserializeObject<Types.ValidResponse>(behaviour.body)
            Types.Valid (behaviour.statusCode, deserializedAuthenticationResponse)
        | _ ->
            let deserializedAuthenticationResponse = JsonConvert.DeserializeObject<Types.ErrorResponse>(behaviour.body)
            Types.Error (behaviour.statusCode, deserializedAuthenticationResponse)

在C#中使用F#类型

F#判别并集被编译为抽象类,每种情况都是派生的嵌套类。在C#中,您可以通过尝试从GetAuthBehaviour:向下转换结果来访问案例

public HttpResponseMessage Post()
{
    var result = Authentication.GetAuthBehaviour();
    var valid = result as Types.AuthenticationResponse.Valid;
    if (valid != null)
    {
        int statusCode = valid.Item1;
        Types.ValidResponse body = valid.Item2;
        return this.CreateResponse(statusCode, body);
    }
    var error = result as Types.AuthenticationResponse.Error;
    if (error != null)
    {
        int statusCode = error.Item1;
        Types.ErrorResponse body = error.Item2;
        return this.CreateResponse(statusCode, body);
    }
    throw new InvalidOperationException("...");
}

请注意,C#编译器并不知道您已经处理了所有情况,因此您需要提供一个分支来处理result既不是Valid也不是Error的情况。在这里,我只是抛出了一个异常作为示例,但在Web API中,返回500状态代码可能更合适。

尽管如此,为什么还要在C#中编写和维护控制器呢?您可以纯粹用F#编写ASP.NET Web API。