api: update dotnet to 9.0 and move Env configuration to their specific file + module

Author: 64J0

fsharp-api/.config/dotnet-tools.json

@@ -3,10 +3,11 @@
   "isRoot": true,
   "tools": {
     "fantomas": {
-      "version": "6.1.1",
+      "version": "7.0.1",
       "commands": [
         "fantomas"
-      ]
+      ],
+      "rollForward": false
     }
   }
 }

fsharp-api/Env.fs

@@ -0,0 +1,13 @@
+module Env
+
+open System
+
+let private setEnvVarDefaultValue (defaultValue: string) (readEnvVar: string) =
+    match readEnvVar with
+    | null -> defaultValue
+    | _ -> readEnvVar
+
+let HOST =
+    Environment.GetEnvironmentVariable "HOST" |> setEnvVarDefaultValue "localhost"
+
+let PORT = Environment.GetEnvironmentVariable "PORT" |> setEnvVarDefaultValue "8085"

fsharp-api/FsharpAPI.fsproj

@@ -2,9 +2,10 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <OutputType>Exe</OutputType>
-    <TargetFramework>net7.0</TargetFramework>
+    <TargetFramework>net9.0</TargetFramework>
   </PropertyGroup>
   <ItemGroup>
+    <Compile Include="Env.fs" />
     <Compile Include="src/DataScience/DataScience.fs" />
     <Compile Include="src/Monitoring/Prometheus.fs" />
     <Compile Include="src/Controllers/Health.controller.fs" />
@@ -22,4 +23,4 @@
     <PackageReference Include="prometheus-net.AspNetCore" Version="8.0.1" />
     <PackageReference Include="Saturn" Version="0.16.1" />
   </ItemGroup>
-</Project>
+</Project>

fsharp-api/Program.fs

@@ -1,21 +1,8 @@
 open Saturn
 
-open System
-
 open API.Server
 
-let setEnvVarDefaultValue (defaultValue: string) (readEnvVar: string) =
-    match readEnvVar with
-    | null -> defaultValue
-    | _ -> readEnvVar
-
-let HOST: string =
-    Environment.GetEnvironmentVariable "HOST" |> setEnvVarDefaultValue "localhost"
-
-let PORT: string =
-    Environment.GetEnvironmentVariable "PORT" |> setEnvVarDefaultValue "8085"
-
 [<EntryPoint>]
-let main (args: string[]) =
-    run (serverConfig (HOST) (PORT))
+let main (_args: string[]) =
+    do run (serverConfig (Env.HOST) (Env.PORT))
     0