chore: better initialization procedure

src/Informedica.GenForm.Lib/DoseRule.fs

@@ -620,6 +620,7 @@ cannot map {r}
 
     let get_ dataUrl =
         let prods = Product.get ()
+        let warnings = System.Collections.Generic.Dictionary<_, _>()
 
         dataUrl
         |> getData
@@ -659,9 +660,13 @@ cannot map {r}
                         |> Array.filter (fun p -> r.GPKs |> Array.exists (String.equalsCapInsens p.GPK))
 
                 if filtered |> Array.length = 0 then
-                    ConsoleWriter.writeWarningMessage
-                        $"no products for {gen} {rte}"
-                        true false
+                    let key = $"{gen} {rte}"
+                    if warnings.ContainsKey(key) |> not then
+                        warnings.Add(key, key)
+                        ConsoleWriter.writeWarningMessage
+                            $"no products for {key}"
+                            true false
+
                     [|
                         {| r with
                             Products =

src/Server/Server.fs

@@ -9,6 +9,15 @@ open Shared
 open Shared.Api
 
 
+printfn $"""
+=== Initialized: ===
+- Formulary {Formulary.empty |> Formulary.get |> ignore}
+- Parenteralia {Parenteralia.empty |> Parenteralia.get |> ignore}
+- Scenarios {ScenarioResult.empty |> ScenarioResult.get |> ignore}
+
+"""
+
+
 let tryGetEnv key =
     match Environment.GetEnvironmentVariable key with
     | x when String.IsNullOrWhiteSpace x -> None
@@ -50,12 +59,14 @@ let application = application {
     //host_config Env.configureHost
 }
 
+
 $"""
-Environmental variables
+=== Environmental variables ===
 GENPRES_URL_ID={tryGetEnv "GENPRES_URL_ID"}
 GENPRES_LOG={tryGetEnv "GENPRES_LOG"}
 GENPRES_PROD={tryGetEnv "GENPRES_PROD"}
 """
 |> printfn "%s"
 
+
 run application

src/Server/ServerApi.fs

@@ -5,6 +5,8 @@ open Shared.Types
 open Shared.Api
 
 
+
+
 /// An implementation of the Shared IServerApi protocol.
 let serverApi: IServerApi =
     {