АВ
Size: a a a
MZ
MZ
K
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net5.0</TargetFramework>
<NoWarn>62,40</NoWarn>
</PropertyGroup>
NoWarn
это отключает. Ну, или пиши C<'T, 'U>
.MZ
MD
DB
MD
AH
AH
A
// Parallel read messages from ReadLine() |> addToCommandChannel
// Example of command (update name to "NewName")
// it executes when not busy
// after work write to channelOut |> propertyUpdated name "NewName"
// state contains variables
// state contains 2 channels
// printer watches channelOut and printing it to stdout
type Property<'a> =
{
Name : string
Value : 'a
}
type Command =
UpdateName of Property<string>
type CommandResult =
UpdatedName of Property<string>
type ModelState =
val name : MVar<string>
val inputCh : Ch<Command>
val outputCh : Ch<CommandResult>
[<EntryPoint>]
let main argv =
printfn "%A" (UpdateName { Name = "name"; Value = "kek" })
0
MD
AH
// Parallel read messages from ReadLine() |> addToCommandChannel
// Example of command (update name to "NewName")
// it executes when not busy
// after work write to channelOut |> propertyUpdated name "NewName"
// state contains variables
// state contains 2 channels
// printer watches channelOut and printing it to stdout
type Property<'a> =
{
Name : string
Value : 'a
}
type Command =
UpdateName of Property<string>
type CommandResult =
UpdatedName of Property<string>
type ModelState =
val name : MVar<string>
val inputCh : Ch<Command>
val outputCh : Ch<CommandResult>
[<EntryPoint>]
let main argv =
printfn "%A" (UpdateName { Name = "name"; Value = "kek" })
0
AH
A