Suave提供静态文件

时间:2016-01-27 19:54:54

标签: f# suave

我想要提供我公共'公共'中的所有文件。温文尔雅的文件夹

在公众面前,我有:

/index.html
/styles/main.css
/scripts/app.js
/images/*.(png|jpg)

我是否使用homeFolder?或者这是如何工作的?是否需要将公用文件夹复制到bin文件夹中的可执行文件旁边? 我们非常感谢代码片段。感谢。

修改

解决方案如下所示:

open Suave
open Suave.Filters
open Suave.Operators
open Suave.Successful
open System.IO

let app = 
    choose [
        GET >=> choose
            [path "/" >=> OK "test" ; Files.browseHome]
        POST >=> choose
            [path "/foo" >=> OK "thanks"]
    ]

let myHomeFolder = Path.Combine(Directory.GetCurrentDirectory(), "public") 

let cfg = { 
    defaultConfig with
        homeFolder = Some(myHomeFolder)
    }

[<EntryPoint>]
let main argv = 
    printfn "%A" argv
    startWebServer cfg app
    System.Console.ReadLine() |> ignore
    0 // return an integer exit code

1 个答案:

答案 0 :(得分:10)

我发现这很难做,因为它没有真正记录。我没有找到Carsten链接到上面的博客,所以我在浏览Suave源代码和GitHub回购中的示例后设法得到了这个:

open Suave
open Suave.Operators

let app =
    choose
        [ Filters.GET >=> choose

            [ Filters.path "/" >=> (
                  "My main page"
                  |> Successful.OK)

              Files.browseHome ] ] // <-- The important part

[<EntryPoint>]
let main x =
    Web.startWebServer Web.defaultConfig app |> ignore
    0

我使用browseHome,因为这是一个控制台应用程序,我只是想从exe目录提供文件。我想您会想要browsesource code

here are some examples您可能会觉得有用。