object

module App

open Elmish
open Elmish.React
open Elmish.Bridge

open Update
open View

Program.mkProgram init update view

object

module View

open Feliz
open Feliz.Bulma

open Shared
open Model
open Messages

let [<Literal>] TimeFormatString = "HH:mm:ss"

object

module Update

open System
open Elmish
open Elmish.Bridge

open Shared
open Model
open Messages

object

module Model

open Shared

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

type Model = 

object

module Messages

open Shared

type Msg =
    | EventSetChanged of string
    | PlaybackDelayChanged of string
    | StartPlayback
    | PausePlayback
    | StopPlayback

object

module SocketServer

open System
open System.IO
open Microsoft.AspNetCore.Http
open Giraffe
open Elmish
open Elmish.Bridge
open Thoth.Json.Net

object

module WebServer

open System.IO
open Microsoft.AspNetCore.Cors.Infrastructure
open Giraffe
open Saturn
open Elmish.Bridge

open Shared
open SocketServer

object

namespace Shared

open System

module Route =
    let hello = "/api/hello"
    let files = "/api/files"
    let socket = "/socket"

module Dto =

object

module View

open Feliz
open Feliz.Bulma

open System
open Shared
open Model
open Messages

object

module Update

open System
open Elmish
open Fable.SimpleHttp
open Thoth.Json

open Shared
open Model
open Messages