使用记录类型的F＃WebApi不提供所需的XML输出

Question

工作代码位于此问题的底部！

随着F＃以下的WebAPI控制器：

namespace FsWeb.Controllers 

open System.Web 
open System.Web.Mvc 
open System.Net.Http 
open System.Web.Http 
open Microsoft.FSharp.Linq; 
open Microsoft.FSharp.Data.TypeProviders; 

type dbSchema = SqlDataConnection<"conn string"> 

[<CLIMutable>] 
type ViewModelRec = { CustomerId : string } 

type ValuesController() = 
    inherit ApiController() 
    let db = dbSchema.GetDataContext() 
    do 
     db.DataContext.Log <- System.Console.Out 

    // GET /api/values 
    member x.Get(take:int, skip:int) = 
     let t = take 
     let s = skip 

     query { 
      for row in db.Reservations do 
      skip s 
      take t 
      select { CustomerId = row.CustomerId.ToString() } 
     } 

XML输出是：

<ArrayOfViewModelRec xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/FsWeb.Controllers"> 
<ViewModelRec> 
<CustomerId_x0040_>A98971F0-5F93-4F0D-B5AC-95E161458381</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>60DF7CF6-91FB-4BBE-AD6B-FE0CAA32F60E</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>84506E40-139C-4DD1-B396-3CE13DC20996</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>D9FABC12-9B19-46C2-9776-E31171A302D5</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>B1B6C617-AA0E-46A9-A0B6-312A229BE178</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>BAB194AE-CD2C-400F-B81E-2A293C50C404</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>AE001AB4-8410-43BF-9C93-AE5A2EACFDF5</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>2DDBDB91-9307-4BF7-865F-C6237D09D542</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>A3E93E5C-2B7E-4B8D-8AAD-AD245E32093F</CustomerId_x0040_> 
</ViewModelRec> 
<ViewModelRec> 
<CustomerId_x0040_>B64B814F-9B4C-46BD-A804-648309FA7DD0</CustomerId_x0040_> 
</ViewModelRec> 
</ArrayOfViewModelRec> 

当我使用一个类来代替，命名看起来是正确的（不x0040标签）。

任何人的建议？

更新：解决方法：

namespace FsWeb.Controllers 

open System.Web 
open System.Web.Mvc 
open System.Net.Http 
open System.Web.Http 
open System.Runtime.Serialization; 
open Microsoft.FSharp.Linq; 
open Microsoft.FSharp.Data.TypeProviders; 

type dbSchema = SqlDataConnection<"here comes the connection string"> 

[<DataContract>] 
type ViewModelRec = { 
    [<field: DataMember(Name="CustomerId")>] 
    CustomerId : string } 

type ValuesController() = 
    inherit ApiController() 
    let db = dbSchema.GetDataContext() 
    do 
     db.DataContext.Log <- System.Console.Out 

    member x.Get(take:int, skip:int) = 
     let t = take 
     let s = skip 

     query { 
      for row in db.Reservations do 
      skip s 
      take t 
      select { CustomerId = row.CustomerId.ToString() } 
     } 

Answer 1

我不是F＃专家，但据我所知，记录类型的属性获取由同名的内部字段，只有支持“@”最后。在你的情况“CustomerId @”。

然后，序列化程序会选择序列化这些支持字段，而不是公共getter，与您在其上具有[Serializable]属性的C＃类相同。

当您使用DataContract /数据成员它应该工作 - 看F# Serialization of Record types