Skip to content

Instantly share code, notes, and snippets.

@slang25
Last active July 18, 2019 12:03
Show Gist options
  • Star 4 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save slang25/90ed87767b62f5c4f43a7b691e98f2ee to your computer and use it in GitHub Desktop.
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

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
Author

slang25 commented Jul 1, 2019

😄 Nice spot, left that in from copying the C# equivalent.

@Krzysztof-Cieslak
Copy link

open Giraffe
open Saturn

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

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

;-)

@slang25
Copy link
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