HelloSuaveAzureFun

app.fsx

open Suave
open Suave.Successful
open Suave.Operators
open Suave.Filters

let app = 
  choose [
      GET >=> OK "GET test"
      POST >=> OK "POST test"
      PUT >=> OK "PUT test"
      DELETE >=> OK "DELETE test"]

function.json

{
    "disabled": false,
    "bindings": [
        {
		"type": "httpTrigger",
		"name": "req",
		"methods": [
			"get",
			"put",
			"post",
			"delete"
		],
		"authLevel": "anonymous",
		"direction": "in"
        },
    	{
    		"type": "http",
    		"name": "res",
    		"direction": "out"
    	}
    ]
}

project.json

{
	"frameworks": {
		"net46": {
			"dependencies": {
				"Suave": "1.1.3",
                "Suave.Azure.Functions": "0.0.9"
			}
		}
	}
}

run.fsx

#load "app.fsx"
open App
open System.Net.Http
open Suave.Azure.Functions.Context

let Run (req : HttpRequestMessage, log : TraceWriter) = 
  try 
    let res = runWebPart app req |> Async.RunSynchronously
    res
  with
    | ex ->
      ex.StackTrace |> sprintf "%s" |> log.Info
      let res = new HttpResponseMessage()
      res