module TestMain where

import FRP.Yampa
import Game.Games
import Game.GameState
import Input


testMain :: IO()
testMain = do
--  timeRef <- initializeTimeRef

  reactimate initAction
             inputAction
             actuate
             wholeGame


initAction :: IO Input
initAction = return NoInput

inputAction :: Bool -> IO (DTime, Maybe Input)
inputAction _ = return (1, Just NoInput)


actuate :: Bool -> GameState -> IO Bool
actuate _ gState = do
  let state = show gState
  putStrLn state 
  putStr "\n\n"
  return False


