# Pastebin 9EO7VeXV
{-# LANGUAGE FlexibleContexts #-}

import Control.Monad.IO.Class
import Reflex
import Data.Time
import Reflex.Host.Headless
import Control.Monad.Fix

tick ::
  (Reflex t, MonadHold t m, MonadFix m, MonadIO m, PostBuild t m, PerformEvent t m, TriggerEvent t m, MonadIO (Performable m)) =>
  m (Event t TickInfo)
tick = do
  cur <- liftIO getCurrentTime
  tickLossy 1 cur

main :: IO ()
main = do
  runHeadlessApp $ do
    pb <- tick
    pb2 <- delay 1 pb
    performEvent_ $ liftIO (putStrLn "test") <$ pb
    pure never