9 people like it.

CORS response with Suave

A little website that lets you make CORS requests to it (update to the latest Suave version)

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31: 
32: 

// Run as console app or fsx
open Suave.Http
open Suave.Types
open Suave.Http.Successful
open Suave.Http.Writers
open Suave.Http.Applicatives
open Suave.Web

let allow_cors : WebPart =
    choose [
        OPTIONS >>= 
            fun context -> 
                set_header  "Access-Control-Allow-Origin" "*" context 
                |> OK "CORS approved"
    ]

let webSite =
    choose [
        allow_cors
        GET >>= OK "URLs are for wimps. GETting something? This is what you get."
    ]

web_server default_config webSite

(*
=== A fiddler scratchpad to test

OPTIONS http://localhost:8083/ HTTP/1.1
User-Agent: Fiddler
Origin: http://www.example-social-network.com
Host: localhost:8083
*)
namespace Suave
module Http

from Suave
module Web

from Suave
val allow_cors : WebPart

Full name: Script.allow_cors
type WebPart = Suave.WebPart.WebPart<HttpContext>

Full name: Suave.Http.WebPart
union case HttpMethod.OPTIONS: HttpMethod
val context : apply:(HttpContext -> HttpContext -> 'a) -> context:HttpContext -> 'a

Full name: Suave.Http.context
val webSite : obj

Full name: Script.webSite
union case HttpMethod.GET: HttpMethod
Next Version Raw view Test code New version

More information

Link:http://fssnip.net/mL
Posted:8 years ago
Author:vilinski
Tags: suave , cors

This web site is created using F# and Suave web server. It is hosted on Azure and the source code is on GitHub. Contributions are welcome!

The first version of fssnip.net has been created by @tomaspetricek back in 2010. This web site is a new, open-source and contribution-friendly version.