Example of Suave.Swagger using in a Sample script

SuaveSwaggerSample.fsx

(*
In your shell
$ paket init
$ paket add nuget suave.swagger
$ paket install
$ paket generate-include-scripts
$ code .
*)

#load ".paket/load/main.group.fsx"

open Suave
open Suave.Filters
open Suave.Operators
open Suave.Swagger
open Rest
open FunnyDsl
open Swagger
open Suave
open System

[<CLIMutable>]
type SubtractionResult = { Result:int }
and [<CLIMutable>] SubtractionRequest =
  { First:int
    Second:int
  }

let now : WebPart =
  fun (x : HttpContext) ->
    async {
      // The MODEL helper checks the "Accept" header 
      // and switches between XML and JSON format
      return! MODEL DateTime.Now x
    }
let subtractObj =
  JsonBody<SubtractionRequest>(fun {First=a;Second=b} -> MODEL {Result=(a-b)})

let api1 = 
  swagger {
    // syntax 1
    for route in getting (simpleUrl "/time" |> thenReturns now) do
        yield description Of route is "What time is it ?"

    for route in posting <| simpleUrl "/subtract" |> thenReturns subtractObj do
        yield description Of route is "Subtracts two numbers"
        yield route |> addResponse 200 "Subtraction result" (Some typeof<SubtractionResult>)
        yield parameter "subtraction request" Of route (fun p -> { p with Type = (Some typeof<SubtractionRequest>); In=Body })
        yield route |> tag "maths"
  }

startWebServer defaultConfig api1.App

// goto http://localhost:8080/swagger/v2/ui/