haskell - 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

だから私は事前機能を（確かに）2回目のパスで何が起こると思われるかをうまく定義していますが、reactTime機能の実行方法が本当にわかりません。誰か助けてもらえますか？

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

重要な注意事項: 私の時間は x(まだ決定しなければならない値) から始まり、0 で終わると想定されています。

だから私はそのfが値1を1秒間減少させる必要があります.このreactTime関数はどのように考えられますか?

この関数を次のようにすると

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

ゲームは完全に実行されますが、時間が経過しないとプレイできません。