所以我的服务器设置非常简单。 如果路径的形式为 /article/something
,则应在文件夹static
中提供静态文件something.html
。 出于某种原因,Files.file
webpart 显然返回None
。 我贴上了OK "File Displayed"
网络部件以验证情况是否如此。 OK
永远不会执行。
let app =
choose [
pathScan "/article/%s" (fun article ->
let name = sprintf "%s.html" article
Console.WriteLine name
Files.file name >=> OK "File Displayed")
]
let config =
{ defaultConfig with homeFolder = Some (Path.GetFullPath "./static") }
[<EntryPoint>]
let main args =
startWebServer config app
0
有趣的是,Console.WriteLine name
行执行完美,当我执行它时,我在控制台窗口中看到something.html
。 似乎问题完全Files.file name
返回 None。
该文件something.html
肯定存在于静态文件夹中,所以这不是问题。
关于可能导致这种情况的原因的任何想法?
以下是解决静态文件服务问题的一些部分
let troubleShootExtensionPart extensionToCheck :WebPart =
fun ctx ->
match extensionToCheck with
| null | "" -> ServerErrors.INTERNAL_ERROR "Extension Error not supplied, part is not set up correctly"
| x when not <| x.StartsWith "." -> ServerErrors.INTERNAL_ERROR "Extensions start with a '.', part is not set up correctly"
| _ ->
let mtm = ctx.runtime.mimeTypesMap
match mtm extensionToCheck with
| None ->
sprintf "%s is not supported by the mime types map, compose your mime type with the `defaultMimeTypesMap`" extensionToCheck
|> RequestErrors.FORBIDDEN
| Some x ->
sprintf "%s is supported and uses '%s', compression on? : %A" extensionToCheck x.name x.compression
|> OK
|> fun wp -> wp ctx
使用通配符的示例消耗,因此如果没有匹配的路由,您将获得一些诊断信息
#if DEBUG
pathScan "/checkExtension/%s" (fun name -> troubleShootExtensionPart name)
// catch all
(fun ctx -> sprintf "404, also homeFolder resolves to %s" (Path.GetFullPath ".") |> RequestErrors.NOT_FOUND |> fun wp -> wp ctx)
#endif