Suave не показывает статический файл

Итак, я настроил свой сервер очень просто. Если путь имеет форму /article/something, он должен обслуживать статический файл something.html в папке static. По какой-то причине веб-часть Files.file, по-видимому, возвращает 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 определенно существует в статической папке, так что это не проблема.

Любые идеи о том, что может быть причиной этого?


f# suave
person Devin Lynch    schedule 20.03.2018    source источник
comment
Вы убедились, что File.file name действительно возвращает None?   -  person Fyodor Soikin    schedule 20.03.2018
comment
Я бы также проверил, какой абсолютный путь делает ./static expand, потому что это может быть относительно рабочего каталога процесса, который зависит от того, кто его запускает и откуда   -  person Honza Brestan    schedule 20.03.2018
comment
@HonzaBrestan спасибо! Это было не совсем то, что происходило, но это помогло мне найти проблему. Я использую Windows, поэтому мне не понравилось, что я сказал "./static" вместо ".\\static"   -  person Devin Lynch    schedule 20.03.2018

Ответы (1)


arrow_upward
0
arrow_downward

Вот некоторые части для устранения неполадок с обслуживанием статических файлов.

    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
person Maslow    schedule 19.02.2019