object

module Model

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

type Model = 
    { EventSet: EventSet 
      PlaybackDelay : int

object

module View

open Feliz

open System
open Model
open Messages

let view (state : Model) dispatch =

object

module App

open Elmish
open Elmish.React

open Update
open View

Program.mkProgram init update view
|> Program.withReactSynchronous "elmish-app"

object

module App

open Elmish
open Elmish.React

#if DEBUG
open Elmish.Debug
open Elmish.HMR
#endif

object

module Index

open Elmish
open Fable.SimpleHttp

type Model = { 
    Filename: string 
    Events : string
    Error : string }

object

module App

open Elmish
open Elmish.React

Program.mkProgram Index.init Index.update Index.view
|> Program.withReactSynchronous "elmish-app"
|> Program.run

object

module View

open System
open Model
open Messages

open Fable.React
open Fable.React.Props

let view (state : Model) dispatch =

object

module Update

open System
open Elmish
open Fable.SimpleHttp

open Model
open Messages

let tryParseWith (tryParseFunc: string -> bool * _) = tryParseFunc >> function

object

module Model

type Model = 
    { Filename: string 
      PlaybackDelay : int
      IsPlaying : bool
      Events : string array
      EventIndex : int
      Error : string }
    static member Empty = 

object

module Messages

type Msg =
    | FilenameChanged of string
    | PlaybackDelayChanged of string
    | StartPlayback
    | PausePlayback
    | StopPlayback
    | NextEvent
    | EventsLoaded of string