Misnamed a setting

This commit is contained in:
Smaug123
2022-11-06 12:27:14 +00:00
parent 8a35a9d3f7
commit a25b2a9ecc
4 changed files with 11 additions and 6 deletions

View File

@@ -20,7 +20,7 @@ fsharp_space_before_colon=true
fsharp_space_before_semicolon=true
fsharp_multiline_block_brackets_on_same_column=true
fsharp_newline_between_type_definition_and_members=true
fsharp_align_function_signature_to_definition=true
fsharp_align_function_signature_to_indentation=true
fsharp_alternative_long_member_definitions=true
fsharp_multi_line_lambda_closing_newline=true
fsharp_experimental_keep_indent_in_branch=true

View File

@@ -389,7 +389,8 @@ module TestInMemoryServer =
let duplicationProperty<'a when 'a : equality>
(clusterSize : int)
(beforeDuplication : ValidHistory<'a>, afterDuplication : ValidHistory<'a>)
: bool =
: bool
=
let withoutDuplicate =
let cluster, network = InMemoryCluster.make<'a> clusterSize
replay beforeDuplication cluster network
@@ -421,7 +422,8 @@ module TestInMemoryServer =
let allDuplicatedHistories<'a>
(clusterSize : int)
(ValidHistory historyList : ValidHistory<'a> as history)
: _ list =
: _ list
=
let duplicateCandidates = possibleDuplicates historyList
duplicateCandidates

View File

@@ -7,7 +7,8 @@ module Table =
(document : Browser.Types.Document)
(headings : string list)
(table : Browser.Types.HTMLTableElement)
: unit =
: unit
=
let row = document.createElement "tr" :?> Browser.Types.HTMLTableRowElement
for heading in headings do
@@ -22,7 +23,8 @@ module Table =
(document : Browser.Types.Document)
(elements : seq<#Browser.Types.Node option>)
(table : Browser.Types.HTMLTableElement)
: Browser.Types.HTMLTableRowElement =
: Browser.Types.HTMLTableRowElement
=
let row = document.createElement "tr" :?> Browser.Types.HTMLTableRowElement
for col in elements do

View File

@@ -151,7 +151,8 @@ module Ui =
(document : Browser.Types.Document)
(ui : UiElements)
(state : UiBackingState<'a>)
: unit =
: unit
=
let userPrefs = state.UserPreferences
let state = state.ClusterState