Suave subPath

subPath.fsx

open System
open Suave
open Suave.Filters

let subPath path (ctx:HttpContext) =
    async {
        let localPath = ctx.request.url.LocalPath        
        let result =
            match (localPath.StartsWith(path)) with
            | false -> None
            | true -> 
                let builder = UriBuilder(ctx.request.url) 
                builder.Path <- localPath.Substring(path.Length)

                let newRequest = { ctx.request with url = builder.Uri}
                { ctx with request = newRequest}
                |> Some
        return result            
    }
    
(*
  Example:
  let app =
    subPath "/v1" >=> choose [
        path "/home" >=> Successful.OK "home"
        path "/meh" >=> Successful.OK "meh"
    ]
*)