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
Copy link
Copy Markdown

toburger commented Jul 1, 2019

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

@slang25
Copy link
Copy Markdown
Author

slang25 commented Jul 1, 2019

πŸ˜„ 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
Copy link
Copy Markdown
Author

slang25 commented Jul 1, 2019

Damn! That's hot

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