patrick/raft-fable
1
0
Fork 0
Code Issues Pull Requests Packages Releases Activity

Warnings as errors

Browse Source
This commit is contained in:
Smaug123
2022-11-06 12:22:59 +00:00
parent 77d1c7befb
commit 8a35a9d3f7
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Raft.Test/Raft.Test.fsproj
View File

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

1
RaftExplorer/RaftExplorer.fsproj
View File

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

2
RaftFable/src/App.fs
View File

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

1
RaftFable/src/RaftFable.fsproj
View File

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

5
RaftFable/src/Ui.fs
View File

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