Skip to content

Instantly share code, notes, and snippets.

@slang25
Last active July 18, 2019 12:03
Show Gist options
  • Select an option

  • Save slang25/90ed87767b62f5c4f43a7b691e98f2ee to your computer and use it in GitHub Desktop.

Select an option

Save slang25/90ed87767b62f5c4f43a7b691e98f2ee to your computer and use it in GitHub Desktop.
open Microsoft.AspNetCore.Hosting
open Microsoft.Extensions.Hosting
open Giraffe
let webApp = GET >=> route "/" >=> text "Hello world"
[<EntryPoint>]
let main args =
Host.CreateDefaultBuilder(args)
.ConfigureWebHostDefaults(fun webBuilder ->
webBuilder.Configure(fun app ->
app.UseGiraffe(webApp) |> ignore
) |> ignore
).Build().Run()
0
@toburger

toburger commented Jul 1, 2019

Copy link
Copy Markdown

You can save two characters by omitting the semicolons at the end of the first two lines! πŸ˜…

@slang25

slang25 commented Jul 1, 2019

Copy link
Copy Markdown
Author

πŸ˜„ Nice spot, left that in from copying the C# equivalent.

@Krzysztof-Cieslak

Copy link
Copy Markdown
open Giraffe
open Saturn

let app = application {
    use_router (GET >=> route "/" >=> text "Hello world")
}

[<EntryPoint>]
let main _ =
    run app
    0

;-)

@slang25

slang25 commented Jul 1, 2019

Copy link
Copy Markdown
Author

Damn! That's hot

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment