Маршруты с необязательными параметрами в Suave

Question

У меня есть веб-сервис с привет мир конечной точки, как это:

let app = 
    choose [ 
     GET >=> 
     choose [ 
      path "/hello" >=> OK "Hello World!" 
      pathScan "/hello/%s" (fun name -> OK (sprintf "Hello World from %s" name)) ] 
     NOT_FOUND "Not found" ] 

[<EntryPoint>] 
let main argv = 
    startWebServer defaultConfig app 
    0 

Теперь я хотел бы добавить дополнительную конечную точку, которая может обрабатывать маршруты, как это: http://localhost:8083/hello/{name}?lang={lang}

Этот маршрут должен работать по следующим адресам:

• http://localhost:8083/hello/FooBarВ этом случае языки должны быть установлены значение по умолчанию "ан-ГБ"
• http://localhost:8083/hello/FooBar?lang=en-GB
• http://localhost:8083/hello/FooBar?lang=de-DE

, но он не должен работать на

http://localhost:8083/hello/FooBar/en-GB

Дополнительные параметры должны быть разрешены только в запросе строка параметров, а не путь.

Любая идея, как достичь этого с помощью Suave?

Answer 1

Для обработки параметров запроса я бы просто использовал функцию request, которая дает вам всю информацию об исходном HTTP-запросе. Вы можете использовать это для проверки параметров запроса:

let handleHello name = request (fun r -> 
    let lang = 
    match r.queryParam "lang" with 
    | Choice1Of2 lang -> lang 
    | _ -> "en-GB" 
    OK (sprintf "Hello from %s in language %s" name lang)) 

let app = 
    choose [ 
     GET >=> 
     choose [ 
      path "/hello" >=> OK "Hello World!" 
      pathScan "/hello/%s" handleHello ] 
     NOT_FOUND "Not found" ]