温和的会话状态

Question

我想在我的Suave项目中使用会话状态。

我启用“/ home”网址的会话状态，然后检查此状态是否存在：

#r @"packages\Suave.0.32.0\lib\net40\Suave.dll"

open Suave                 // always open suave
open Suave.Http.Successful // for OK-result
open Suave.Web            // for config 
open Suave.Http
open Suave.State.CookieStateStore
open Suave.Http.Applicatives
open Suave.Types

[ 
    path "/home" >>= statefulForSession >>= context  (fun x ->
                match HttpContext.state x with
                | Some state -> OK "session found"
                | None -> Suave.Http.RequestErrors.BAD_REQUEST "No Session Found"
            )]
|> choose
|> startWebServer defaultConfig 

每次访问“/ home”时，它都以BAD_REQUEST“No Session Found”结束。

我做错了什么？