Step 1 for Quatro is done

Author: danieljsummers

src/2-Nancy-CSharp/Startup.cs

@@ -6,9 +6,7 @@ namespace Dos
 
     public class Startup
     {
-        public void Configure(IApplicationBuilder app)
-        {
+        public void Configure(IApplicationBuilder app) =>
             app.UseOwin(x => x.UseNancy());
-        }
     }
 }

src/3-Nancy-FSharp/App.fs

@@ -1,5 +1,4 @@
-// Learn more about F# at http://fsharp.org
-namespace Tres
+namespace Tres
 
 open Microsoft.AspNetCore.Builder
 open Microsoft.AspNetCore.Hosting

src/4-Freya-FSharp/App.fs

@@ -1,8 +1,34 @@
-// Learn more about F# at http://fsharp.org
+namespace Quatro
 
-open System
+open Freya.Core
+open Freya.Machines.Http
+open Freya.Routers.Uri.Template
+open Microsoft.AspNetCore.Builder
+open Microsoft.AspNetCore.Hosting
 
-[<EntryPoint>]
-let main argv = 
-    printfn "Hello World!"
-    0 // return an integer exit code
+module App =
+  let hello =
+    freya {
+      return Represent.text "Hello World from Freya"
+      }
+
+  let machine =
+    freyaMachine {
+      handleOk hello
+      }
+
+  let router =
+    freyaRouter {
+      resource "/" machine
+      }
+
+  type Startup () =
+    member __.Configure (app : IApplicationBuilder) =
+      let freyaOwin = OwinMidFunc.ofFreya (UriTemplateRouter.Freya router)
+      app.UseOwin (fun p -> p.Invoke freyaOwin) |> ignore
+
+  [<EntryPoint>]
+  let main _ =
+    use host = (new WebHostBuilder()).UseKestrel().UseStartup<Startup>().Build()
+    host.Run()
+    0

src/4-Freya-FSharp/project.json

@@ -12,7 +12,8 @@
   "dependencies": {
     "Freya": "3.0.0-rc01",
     "Microsoft.AspNetCore.Owin": "1.0.0",
-    "Microsoft.AspNetCore.Server.Kestrel": "1.0.0"
+    "Microsoft.AspNetCore.Server.Kestrel": "1.0.0",
+    "Microsoft.NETCore.Portable.Compatibility": "1.0.1"
   },
   "frameworks": {
     "netcoreapp1.0": {
@@ -22,7 +23,13 @@
           "version": "1.0.1"
         },
         "Microsoft.FSharp.Core.netcore": "1.0.0-alpha-160831"
-      }
+      },
+      "imports": [
+        "portable-net45+win8+dnxcore50",
+        "portable-net45+win8",
+        "net452",
+        "dnxcore50"
+      ]
     }
   },
   "tools": {