module AppTypes where

import Data.Time.Clock.POSIX (getPOSIXTime)

import Language.LanguageAst ( Block(..) )

data AppState = AppState {
  time :: Double,
  validAst :: Block,
  timeAtStart :: Double
}

makeAppState :: IO AppState
makeAppState = do
  timeNow <- realToFrac <$> getPOSIXTime
  return AppState {
    time = 0, validAst = Block [], timeAtStart = timeNow
  }

module AppTypes where

import Language.LanguageAst ( Block(..) )

data AppState = AppState { validAst :: Block }

makeAppState :: AppState
makeAppState = AppState { validAst = Block [] }

Remove time from app state
Remove time from app state

set in display function now
