Rather dubious struct-based stuff all plumbed through

This commit is contained in:
Smaug123
2022-11-13 23:13:04 +00:00
parent 72785eda06
commit ff59e6d7d7
8 changed files with 141 additions and 50 deletions

View File

@@ -56,7 +56,7 @@ module Program =
| ClientResponse.Success (client, sequence) ->
printfn "Raft has committed request from client %i with sequence number %i" client sequence
match NetworkAction.tryParse parseByte (Some leaders) handleRegister handleResponse clusterSize s with
match NetworkAction.tryParseString parseByte (Some leaders) handleRegister handleResponse clusterSize s with
| Ok action -> action
| Error e ->
printfn "%s" e