anchor.diff:              awt.OnCompleted x.Continue
   
   module View =
  -     
  +
       let fortuneView =
           html [] [
               head [] [
                   title []  [ rawText "Fortunes" ]
  -            ]        
  +            ]
               body [] [
  -                table [] [ 
  +                table [] [
                       tr [] [
                           th [] [ rawText "id" ]
                           th [] [ rawText "message" ]
  
positive.code:         ] |> compileDoc
  
      let extra = { id = 0; message = "Additional fortune added at request time." }
      let FortuneComparer = { new IComparer<Fortune> with 
          member self.Compare(a,b) = String.CompareOrdinal(a.message, b.message)
  }
  
  [<EntryPoint>]
  let main args = 
  
      // Defualt implimentation        
      let fallback : Zapp<_> = (fun ctx -> ctx {
          text "Url Not Found"
          status 404        
      })
  
      let webapp = 
          router [
              get "/plaintext" => fun ctx -> ctx { text "Hello, World!" }
              get "/json"      => fun ctx -> ctx { json {JsonStructMessage.message = "Hello, World!"} }
              get "/fortunes"  => fun ctx -> ctx { 
                  use conn = new NpgsqlConnection(ConnectionString)
                  
                  let! (data : Fortune seq) = conn.QueryAsync<Fortune>("SELECT id, message FROM fortune")
                  
                  let fortunes = 
                      let xs = data.AsList()
                      xs.Add View.extra
                      xs.Sort View.FortuneComparer
  
negative.code:     // Config to used based on console arg
      let config : Action<Builder.IApplicationBuilder> =
              match args with
              | [|"simple"|] ->
                  printfn "Using Simple Config..."
                  Action<Builder.IApplicationBuilder>( fun app -> app.UseZebraSimpleMiddleware<int>(0,simpleApp) |> ignore )
              | _            ->
                  printfn "Using Stock Config..."
                  Action<Builder.IApplicationBuilder>( fun app -> app.UseZebraMiddleware<int>(0,fallback,webapp) |> ignore )
  
      WebHostBuilder()
          .UseKestrel()
          .Configure(config)
          .Build()
          .Run()
      0
  