Fable workshop (2024). Step 6. Model.fs

Model.fs

module Model

[<RequireQualifiedAccess>]
type EventSet =
  | Small
  | Large

type Model = 
    { EventSet: EventSet 
      PlaybackDelay : int
      IsPlaying : bool
      Events : string array
      EventIndex : int
      Error : string }
    static member Empty = 
        { EventSet = EventSet.Small
          PlaybackDelay = 2000
          IsPlaying = false
          Events = Array.empty
          EventIndex = -1
          Error = "" }