FSharp giraffe (TechEmpower#3859)

.travis.yml

@@ -28,6 +28,7 @@ env:
  - "TESTLANG=Dart"
  - "TESTLANG=Elixir"
  - "TESTLANG=Erlang"
+ - "TESTLANG=FSharp"
  - "TESTLANG=Go"
  - "TESTLANG=Groovy"
  - "TESTDIR=Haskell/snap"

frameworks/FSharp/giraffe/.gitignore

@@ -0,0 +1,38 @@
+[Oo]bj/
+[Bb]in/
+TestResults/
+.nuget/
+*.sln.ide/
+_ReSharper.*/
+.idea/
+packages/
+artifacts/
+PublishProfiles/
+.vs/
+*.user
+*.suo
+*.cache
+*.docstates
+_ReSharper.*
+nuget.exe
+*net45.csproj
+*net451.csproj
+*k10.csproj
+*.psess
+*.vsp
+*.pidb
+*.userprefs
+*DS_Store
+*.ncrunchsolution
+*.*sdf
+*.ipch
+*.swp
+*~
+.build/
+.testPublish/
+launchSettings.json
+BenchmarkDotNet.Artifacts/
+BDN.Generated/
+binaries/
+global.json
+*.sln

frameworks/FSharp/giraffe/README.md

@@ -0,0 +1,27 @@
+# girrafe Tests on Linux
+This includes tests for plaintext and json serialization.
+
+## Infrastructure Software Versions
+
+**Language**
+
+* F# 4.1
+
+**Platforms**
+
+* .NET Core (Windows and Linux)
+
+**Web Servers**
+
+* [Kestrel](https://github.com/aspnet/KestrelHttpServer)
+
+**Web Stack**
+
+* [giraffe](https://github.com/giraffe-fsharp/Giraffe)
+* ASP.NET Core
+
+## Paths & Source for Tests
+
+* [Plaintext](src/App/Programs.fs): "/plaintext"
+* [JSON serialization](src/App/Programs.fs): "/json"
+* [JSON serialization via utf8json lib](src/App/Programs.fs): "/jsonutf8"

frameworks/FSharp/giraffe/benchmark_config.json

@@ -0,0 +1,66 @@
+{
+ "framework": "giraffe",
+ "tests": [
+ {
+ "default": {
+ "plaintext_url": "/plaintext",
+ "json_url": "/json",
+ "port": 8080,
+ "approach": "Realistic",
+ "classification": "fullstack",
+ "database": "None",
+ "framework": "giraffe",
+ "language": "F#",
+ "orm": "Raw",
+ "platform": ".NET",
+ "flavor": "CoreCLR",
+ "webserver": "Kestrel",
+ "os": "Linux",
+ "database_os": "Linux",
+ "display_name": "Giraffe",
+ "notes": "",
+ "versus": "aspcore"
+ }
+ },
+ {
+ "utf8json": {
+ "json_url": "/json",
+ "port": 8080,
+ "approach": "Realistic",
+ "classification": "fullstack",
+ "database": "None",
+ "framework": "giraffe",
+ "language": "F#",
+ "orm": "Raw",
+ "platform": ".NET",
+ "flavor": "CoreCLR",
+ "webserver": "Kestrel",
+ "os": "Linux",
+ "database_os": "Linux",
+ "display_name": "Giraffe",
+ "notes": "",
+ "versus": "aspcore"
+ }
+ },
+ {
+ "utf8plaintext": {
+ "plaintext_url": "/plaintext",
+ "port": 8080,
+ "approach": "Realistic",
+ "classification": "fullstack",
+ "database": "None",
+ "framework": "giraffe",
+ "language": "F#",
+ "orm": "Raw",
+ "platform": ".NET",
+ "flavor": "CoreCLR",
+ "webserver": "Kestrel",
+ "os": "Linux",
+ "database_os": "Linux",
+ "display_name": "Giraffe",
+ "notes": "",
+ "versus": "aspcore"
+ }
+ }
+ ]
+}

frameworks/FSharp/giraffe/giraffe-utf8json.dockerfile

@@ -0,0 +1,12 @@
+FROM microsoft/dotnet:2.1-sdk-stretch AS build
+WORKDIR /app
+COPY src/App .
+RUN dotnet publish -c Release -o out
+
+FROM microsoft/dotnet:2.1-aspnetcore-runtime AS runtime
+ENV ASPNETCORE_URLS http://+:8080
+ENV COMPlus_ReadyToRun 0
+WORKDIR /app
+COPY --from=build /app/out ./
+
+ENTRYPOINT ["dotnet", "App.dll"]

frameworks/FSharp/giraffe/giraffe-utf8plaintext.dockerfile

@@ -0,0 +1,12 @@
+FROM microsoft/dotnet:2.1-sdk-stretch AS build
+WORKDIR /app
+COPY src/App .
+RUN dotnet publish -c Release -o out
+
+FROM microsoft/dotnet:2.1-aspnetcore-runtime AS runtime
+ENV ASPNETCORE_URLS http://+:8080
+ENV COMPlus_ReadyToRun 0
+WORKDIR /app
+COPY --from=build /app/out ./
+
+ENTRYPOINT ["dotnet", "App.dll"]

frameworks/FSharp/giraffe/giraffe.dockerfile

@@ -0,0 +1,12 @@
+FROM microsoft/dotnet:2.1-sdk-stretch AS build
+WORKDIR /app
+COPY src/App .
+RUN dotnet publish -c Release -o out
+
+FROM microsoft/dotnet:2.1-aspnetcore-runtime AS runtime
+ENV ASPNETCORE_URLS http://+:8080
+ENV COMPlus_ReadyToRun 0
+WORKDIR /app
+COPY --from=build /app/out ./
+
+ENTRYPOINT ["dotnet", "App.dll", "stock"]

frameworks/FSharp/giraffe/src/App/App.fsproj

@@ -0,0 +1,27 @@
+<Project Sdk="Microsoft.NET.Sdk.Web">
+
+ <PropertyGroup>
+ <TargetFramework>netcoreapp2.1</TargetFramework>
+ <DebugType>portable</DebugType>
+ <AssemblyName>App</AssemblyName>
+ <OutputType>Exe</OutputType>
+ <EnableDefaultContentItems>false</EnableDefaultContentItems>
+ </PropertyGroup>
+
+ <ItemGroup>
+ <PackageReference Include="Microsoft.AspNetCore.Hosting" Version="2.1.0" />
+ <PackageReference Include="Microsoft.AspNetCore.Server.Kestrel" Version="2.1.0" />
+ <PackageReference Include="Microsoft.Extensions.DependencyInjection" Version="2.1.0" />
+ <PackageReference Include="Giraffe" Version="1.1.0" />
+ <PackageReference Include="Utf8Json" Version="1.3.7" />
+ </ItemGroup>
+
+ <ItemGroup>
+ <Compile Include="Program.fs" />
+ </ItemGroup>
+
+ <ItemGroup>
+ <PackageReference Update="FSharp.Core" Version="4.5.0" />
+ </ItemGroup>
+
+</Project>

frameworks/FSharp/giraffe/src/App/Program.fs

@@ -0,0 +1,62 @@
+module App.App
+
+open Microsoft.AspNetCore.Hosting
+open Giraffe
+
+[<CLIMutable>] 
+type JsonMessage = { message : string }
+
+[<CLIMutable>][<Struct>] 
+type JsonStructMessage = { message : string }
+
+type Implementation = Stock | Custom
+
+module Routes =
+
+ let stock : HttpHandler list = 
+ [ route "/plaintext" >=> text "Hello, World!"
+ route "/json" >=> json { JsonMessage.message = "Hello, World!" } ]
+
+ let custom : HttpHandler list = 
+ let inline contentLength (x:int32) = new System.Nullable<int64>( int64 x )
+
+ let json data : HttpHandler =
+ let bytes = Utf8Json.JsonSerializer.Serialize(data)
+ fun _ ctx ->
+ ctx.Response.ContentLength <- contentLength ( bytes.Length )
+ ctx.Response.ContentType <- "application/json"
+ ctx.Response.StatusCode <- 200
+ ctx.WriteBytesAsync bytes
+
+ let bytes = System.Text.Encoding.UTF8.GetBytes "Hello, World!"
+ let text : HttpHandler = 
+ fun _ ctx ->
+ ctx.Response.ContentLength <- contentLength ( bytes.Length )
+ ctx.Response.ContentType <- "text/plain"
+ ctx.Response.StatusCode <- 200
+ ctx.WriteBytesAsync bytes
+
+ [ route "/plaintext" >=> text
+ route "/json" >=> json { JsonStructMessage.message = "Hello, World!" } ]
+
+let webApp implementation = 
+ match implementation with
+ | Stock -> GET >=> choose Routes.stock
+ | Custom -> GET >=> choose Routes.custom
+
+[<EntryPoint>]
+let main args = 
+ let implementation = 
+ match args with
+ | [| "stock" |] -> Stock
+ | _ -> Custom
+
+ printfn "Running with %A implementation" implementation
+
+ WebHostBuilder()
+ .UseKestrel()
+ .Configure(fun app -> app.UseGiraffe (webApp implementation))
+ .ConfigureServices(fun services -> services.AddGiraffe() |> ignore)
+ .Build()
+ .Run()
+ 0