Percorsi con i parametri facoltativi a Suave

Question

Ho un servizio web con un endpoint ciao mondo come questo:

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 

Ora vorrei aggiungere un endpoint aggiuntivo in grado di gestire le rotte in questo modo: http://localhost:8083/hello/{name}?lang={lang}

questo percorso dovrebbe funzionare per i seguenti URL:

• http://localhost:8083/hello/FooBarIn questo caso lang dovrebbe essere impostato ad un valore predefinito di "it-IT"
• http://localhost:8083/hello/FooBar?lang=en-GB
• http://localhost:8083/hello/FooBar?lang=de-DE

ma non dovrebbe funzionare per

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

Parametri opzionali dovrebbe essere consentito solo in una query stringa di parametri e non nel percorso.

Qualche idea su come ottenere questo risultato con Suave?

Answer 1

Per la gestione dei parametri di query, probabilmente utilizzerò la funzione request, che fornisce tutte le informazioni sulla richiesta HTTP originale. È possibile utilizzarlo per verificare i parametri della query:

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" ]