Warnings as errors

Raft.Test/Raft.Test.fsproj

@@ -4,6 +4,7 @@
         <TargetFramework>net6.0</TargetFramework>
 
         <IsPackable>false</IsPackable>
+        <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
     </PropertyGroup>
 
     <ItemGroup>

RaftExplorer/RaftExplorer.fsproj

@@ -3,6 +3,7 @@
     <PropertyGroup>
         <OutputType>Exe</OutputType>
         <TargetFramework>net6.0</TargetFramework>
+        <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
     </PropertyGroup>
 
     <ItemGroup>

RaftFable/src/App.fs

@@ -9,7 +9,7 @@ module App =
 
     let clusterSize = 5
 
-    let ui = Ui.initialise document clusterSize
+    let ui = Ui.initialise document
 
     let rec fullyRerender<'a> (cluster : Cluster<'a>) (network : Network<'a>) : Promise<unit> =
         let prefs = Ui.getUserPrefs ui

RaftFable/src/RaftFable.fsproj

@@ -1,6 +1,7 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <TargetFramework>net6.0</TargetFramework>
+    <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="Table.fs" />

RaftFable/src/Ui.fs

@@ -46,7 +46,7 @@ type RequiresPopulation =
 [<RequireQualifiedAccess>]
 module Ui =
 
-    let initialise (document : Browser.Types.Document) (clusterSize : int) : UiElements =
+    let initialise (document : Browser.Types.Document) : UiElements =
         let serverStatuses =
             document.querySelector ".server-statuses" :?> Browser.Types.HTMLTableElement
 
@@ -58,9 +58,6 @@ module Ui =
         let leaderStateTable =
             document.querySelector ".leader-state-table" :?> Browser.Types.HTMLTableElement
 
-        let timeoutButton =
-            document.querySelector ".timeout-button" :?> Browser.Types.HTMLButtonElement
-
         let timeoutField =
             document.querySelector ".timeout-text" :?> Browser.Types.HTMLInputElement