ReacTime功能崩溃游戏

Question

我的问题是我做了一个游戏，我有initialState，drawState和reactEvent运行良好，但我的reactTime函数，当我激活它崩溃的程序

-- | Main function that invoques the game
main :: IO ()
main = do 
      play dm           -- display mode
        (greyN 0.5)     
        fr              -- frame rate
        initialState    -- initial game state
        drawState       -- draws game state
        reactEvent      -- reacts to event
        reactTime       -- reacts to time

所以我确定了预先确定的功能（肯定）在第二次通过时会发生什么，但我真的不知道怎么做reactTime功能，有人可以帮忙吗？

-- | Function that alters the game state when time advances
reactTime :: Float -> State -> State
reactTime f s =  advance s (exponent f)

Importante说明： 我的时间假设从x开始（值我必须决定）并以0结束

所以我需要让f减小值为1秒，这个reactTime函数假设是谁有任何想法？

如果我使这个功能等于

-- | Function that alters the game state when time advances
reactTime :: Float -> State -> State
reactTime f s = s

游戏运行得很完美，但没有时间让它无法发挥。