From 5041f7d0e11b8eed376909ce99b0dfdec357e120 Mon Sep 17 00:00:00 2001 From: Josh Date: Sun, 5 May 2024 19:44:43 +1000 Subject: [PATCH] Updates --- .../AirportAlphabetGame.fsproj | 19 +++++++++++++++++++ .../AirportAlphabetGame.fsproj.user | 1 + AirportAlphabetGame/Program.fs | 6 ------ AirportAlphabetGame/View.fs | 2 +- 4 files changed, 21 insertions(+), 7 deletions(-) diff --git a/AirportAlphabetGame/AirportAlphabetGame.fsproj b/AirportAlphabetGame/AirportAlphabetGame.fsproj index 0e3d8c1..5b7ae77 100644 --- a/AirportAlphabetGame/AirportAlphabetGame.fsproj +++ b/AirportAlphabetGame/AirportAlphabetGame.fsproj @@ -23,4 +23,23 @@ + + + Always + + + Always + + + Always + + + + + + + Always + + + diff --git a/AirportAlphabetGame/AirportAlphabetGame.fsproj.user b/AirportAlphabetGame/AirportAlphabetGame.fsproj.user index 983ecfc..f41c3c5 100644 --- a/AirportAlphabetGame/AirportAlphabetGame.fsproj.user +++ b/AirportAlphabetGame/AirportAlphabetGame.fsproj.user @@ -2,6 +2,7 @@ http + C:\Users\dredgy\RiderProjects\AirportAlphabetGame\AirportAlphabetGame\Properties\PublishProfiles\FolderProfile.pubxml ProjectDebugger diff --git a/AirportAlphabetGame/Program.fs b/AirportAlphabetGame/Program.fs index db5b7d7..a707b76 100644 --- a/AirportAlphabetGame/Program.fs +++ b/AirportAlphabetGame/Program.fs @@ -7,10 +7,6 @@ open Types module Program = - let pipeline = pipeline { - use_warbler - } - let router = router { not_found_handler (setStatusCode 404 >=> text "404") get "/" ( (View.index [||]) |> htmlView) @@ -23,7 +19,6 @@ module Program = } let ServiceConfig (services: IServiceCollection) = services.AddHttpContextAccessor() - let ipAddress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList[2]; let app = application { use_mime_types [(".woff", "application/font-woff")] @@ -34,5 +29,4 @@ module Program = url "http://*:5001" } - app.Properties["host.AppMode"] <- "development" run app diff --git a/AirportAlphabetGame/View.fs b/AirportAlphabetGame/View.fs index 305d170..461f5ca 100644 --- a/AirportAlphabetGame/View.fs +++ b/AirportAlphabetGame/View.fs @@ -1,4 +1,4 @@ -module View +module View open System open Htmx