ExercisePage.elm

module Page.ExercisePage where

mailbox : Signal.Mailbox Action
mailbox =
  Signal.mailbox Noop

Main.elm

module Main where

import Html exposing (Html)
import Effects exposing (Never)
import Task exposing (Task)
import StartAppWithInits as StartApp exposing (start, App)
import App exposing (init, update, view)
import Random.PCG exposing (generate, initialSeed2, Seed)
import Time exposing (Time)
import HotReload

import Page.ExercisePage as ExercisePage
import Component.Timer as Timer

app : StartApp.App App.Model
app =
  start
    { init = (if useHotReload then HotReload.init else identity) <| init initialSeed
    , update = update
    , view = view
    , inputs =
      [ Time.every 250 |> Signal.map (App.ExercisePageAction << ExercisePage.TimerAction << Timer.TimerTick)
      , ExercisePage.mailbox.signal
      ]
    , inits =
      [ Signal.constant () |> Time.timestamp |> Signal.map fst |> Signal.map (App.ExercisePageAction << ExercisePage.TimerAction << Timer.TimerTick)
      ]
    }