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

object

module Server

open System.IO
open Giraffe
open Saturn

open Shared

let getFilesDirectory () =
    Path.Combine [|Directory.GetCurrentDirectory (); "public"|]

object

namespace UnitTests

module ClusterPoolTests =

    open System.Threading.Tasks
    open Akka.Routing
    open Akka.Cluster
    open Akka.FSharp
    open Xunit
    open Xunit.Abstractions

object

using Akka.Actor;
using Akka.Configuration;
using Akka.Event;
using Akka.Routing;
using Xunit;
using Xunit.Abstractions;

namespace Akka.Cluster.Tests.Routing;

public static class PoolConfig

object

#time "on"

open System
open System.IO

type PulseType = 
    | Low
    | High

type FlipFlopState =

object

open System
open System.IO

type Operator = | Less | Greater

type Condition = {
    Attribute: char
    Operator: Operator
    Value: int
}

object

#time "on"

open System
open System.IO

let splitOn c (s: string) =
    s.Split [|c|]

let input =
    File.ReadAllText(__SOURCE_DIRECTORY__ + "/../data/input15.txt").Replace("\r", "").Replace("\n", "")