小编Ove*_*urg的帖子

我正在使用 SAFE 堆栈的 Elmish.Bridge 风格。

在视图的顶层，我创建了一个这样的输入字段：

Input.input [ Input.Value(model.FieldValue); Input.OnChange(fun e -> dispatch (EditFieldValue(e.Value))) ]

当我通过在它的中间键入来编辑该字段的值时，模型会按预期更新，但光标也会移动到输入文本的末尾。

我的模型有几层深，完全由可序列化的类型（原语、字符串、集合、记录和联合）组成。

我尝试在玩具应用程序中重现它（模型没有那么复杂），但它在那里按预期工作 - 光标保持位置。

有什么方法可以确定为什么光标在这些情况下移动？

为什么这样可以:

let [<Literal>] hi = "hi"
let [<Literal>] bye = "bye"
let [<Literal>] shortMeeting = hi + bye

......但这不是？

let [<Literal>] me = 1
let [<Literal>] you = 1
let [<Literal>] we = me + you

第三行给出错误:

This is not a valid constant expression

那是怎么回事？

当我使用async{}计算表达式运行此代码块时：

let tokenSource = new CancellationTokenSource()

let runAsync() =
    async {
        while true do
            do! Async.Sleep(1000 * 1)
            printfn "hello"
    }

Async.Start(runAsync(), tokenSource.Token)

...然后运行tokenSource.Cancel()，执行过程被取消，正如预期的那样。

但是，当我使用task{}运行这个极其相似的代码块时：

let tokenSource = new CancellationTokenSource()

let rec runTask() =
    task {
        while true do
            do! Task.Delay(1000 * 1)
            printfn "hello"
    }
let run () = runTask () :> Task

Task.Run(run, tokenSource.Token)

...然后运行tokenSource.Cancel()，执行过程不会被取消。

为什么取消令牌对于 async{} 可以按预期运行，但对于 task{} 却不能？

我的问题是:

当我在设计时不知道这些表达式的数量和类型时,如何将列表中的表达式拼接成引号？

在底部,我已经包含了类型提供程序的完整代码.(我已经删除了这个概念以证明问题.)我的问题发生在以下几行:

  let func = ProvidedMethod((*...*), InvokeCode = fun args ->
        <@@ let stringParts =
                args
                |> List.mapi (fun i arg -> 
                    if paramTypes.[i] = typeof&lt;int&gt; then
                        sprintf "%i" (%%arg: int)...

在lambda参数上arg,我收到以下错误:

error FS0446: The variable 'arg' is bound in a quotation but is used as part of a spliced expression. This is not permitted since it may escape its scope.``

我无法弄清楚如何编写代码,以便在提供者设计时不知道值的数量和类型时"提取"参数值(虽然它们将在编译时知道).

当我在设计时知道参数的存在和类型时,我可以这样做:

printfn "%A" (%%args.[0]: int)

但我无法弄清楚如何从Expr list输入到obj list引号内.

这是完整类型的提供者代码:

[<TypeProvider>]
type …

在F#中,你可以说

let x = {1..5}

你得到了预期的{1,2,3,4,5}.但如果你说

let y = {5..1}

,你得到一个空序列.

我假设这样做是为了让返回空序列变得更容易,例如,start和stop是变量而你已经超过了限制.但是,简明地定义递减序列的最佳方法是什么？

现在我这样做:

List.rev {1..10000}

......但必须有更好的方法.

这似乎应该有效,但不是:

let dataSet = new DataSet()
let dataTable1 = dataSet.Tables.Add("Bob")
let dataTable1 = dataSet.Tables.Add("Bilf")
let tableNames = Seq.map (fun (x:DataTable) -> x.TableName) dataSet.Tables

它给出以下错误:

The type 'DataTableCollection' is not compatible with the type 'seq<DataTable>'

尝试手动强制转换时,同样的错误仍然存​​在:

let tableNames = Seq.map (fun (x:DataTable) -> x.TableName) (seq<DataTable> dataSet.Tables)

有没有办法在DataTableCollection上执行F#样式的序列操作,还是需要先将DataTableCollection手动转换为F#批准的集合类型？

当我使用 swashbuckle 运行 .NET Core 服务时，它显示的标题（在所有资源之上）源自程序集名称。

如何指定我自己的标题出现在 swagger 页面上？

（页面上显示的标题与文档标题不同，可以通过options.DocumentTitle传入app.UseSwaggerUI()方法进行修改。）

编辑：这是我当前的设置代码 - 这是 C# 模板开箱即用的代码webapi：

var builder = WebApplication.CreateBuilder(args);

// Add services to the container.

builder.Services.AddControllers();
// Learn more about configuring Swagger/OpenAPI at https://aka.ms/aspnetcore/swashbuckle
builder.Services.AddEndpointsApiExplorer();
builder.Services.AddSwaggerGen();

var app = builder.Build();

// Configure the HTTP request pipeline.
if (app.Environment.IsDevelopment())
{
    app.UseSwagger();
    app.UseSwaggerUI();
}

app.UseHttpsRedirection();

app.UseAuthorization();

app.MapControllers();

app.Run();

我个人的偏好是x.ToString(),因为它的字母数量略少.这两个都有什么优势吗？