Skip to content
Merged
Show file tree
Hide file tree
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension


Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
41 changes: 41 additions & 0 deletions fsharp/oxpecker/Program.fs
Original file line number Diff line number Diff line change
@@ -0,0 +1,41 @@
open System.Threading.Tasks
open Microsoft.AspNetCore.Builder
open Microsoft.AspNetCore.Hosting
open Microsoft.Extensions.DependencyInjection
open Microsoft.Extensions.Hosting
open Microsoft.Extensions.Logging
open Oxpecker

let emptyHandler: EndpointHandler = fun _ -> Task.CompletedTask

let userIdHandler: EndpointHandler =
fun ctx ->
match ctx.TryGetRouteValue<string>("id") with
| Some id -> ctx.WriteText(id)
| None -> Task.CompletedTask

let endpoints =
[ GET [ route "/" emptyHandler; route "/user/{id?}" userIdHandler ]
POST [ route "/user" emptyHandler ] ]

let configureLogging (log: ILoggingBuilder) = log.ClearProviders() |> ignore

let configureServices (services: IServiceCollection) =
services.AddRouting().AddOxpecker() |> ignore

let configureApp (app: IApplicationBuilder) =
app.UseRouting().UseOxpecker(endpoints) |> ignore

let args = System.Environment.GetCommandLineArgs()

Host
.CreateDefaultBuilder(args)
.ConfigureWebHost(fun webHost ->
webHost
.UseKestrel(fun c -> c.AddServerHeader <- false)
.ConfigureLogging(configureLogging)
.ConfigureServices(configureServices)
.Configure(configureApp)
|> ignore)
.Build()
.Run()
3 changes: 3 additions & 0 deletions fsharp/oxpecker/config.yaml
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
framework:
github: Lanayx/Oxpecker
version: 1.2
13 changes: 13 additions & 0 deletions fsharp/oxpecker/web.fsproj
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
<Project Sdk="Microsoft.NET.Sdk.Web">
<PropertyGroup>
<TargetFramework>net9.0</TargetFramework>
<IsPackable>false</IsPackable>
<Nullable>enable</Nullable>
</PropertyGroup>
<ItemGroup>
<Compile Include="Program.fs" />
</ItemGroup>
<ItemGroup>
<PackageReference Include="Oxpecker" Version="1.2.*" />
</ItemGroup>
</Project>
Loading