gameLoop :: Game ()
gameLoop = do
  event <- handlePoll
  over <- gets gameOver
  when (event /= Quit && not over) $
    do brd <- gets board
       drawBoard brd
       handleInterval
       waitUntilNextFrame
       gameLoop


-- | Checks if the interval has been reached, if so, move down!
gameLoop :: Game ()
gameLoop = do
  event <- handlePoll
  over <- gets gameOver
  when (event /= Quit && not over) $
    do brd <- gets board
       drawBoard brd
       handleInterval
       waitUntilNextFrame
       gameLoop


-- | Checks if the interval has been reached, if so, move down!
gameLoop = do
  event <- handlePoll
  over <- gets gameOver
  when (event /= Quit && not over) $
    do brd <- gets board
       drawBoard brd
       handleInterval
       waitUntilNextFrame
       gameLoop


-- | Checks if the interval has been reached, if so, move down!