handleInterval :: Game ()                            
handleInterval = do
  time <- gets timer
  now <- liftIO $ getTicks
  let lastDropDelta = now - (tsld time)
      interv = interval time
  when (lastDropDelta >= interv) $ do ifM currentPieceShouldBeSet -- condition
                                        setPieceAndStartAnew -- then
                                        (movePiece 0 1) -- else
                                      linum <- gets lineNum
                                      let newInt = calculateInterval linum
                                      setTimer $ time { interval = newInt
                                                      , tsld = now
                                                      }


-- | Polls and polls until it can't poll no more!
handleInterval :: Game ()
handleInterval = do
  time <- gets timer
  now <- liftIO $ getTicks
  let lastDropDelta = now - (tsld time)
      interv = interval time
  when (lastDropDelta >= interv) $ do ifM currentPieceShouldBeSet -- condition
                                        setPieceAndStartAnew -- then
                                        (movePiece 0 1) -- else
                                      linum <- gets lineNum
                                      let newInt = calculateInterval linum
                                      setTimer $ time { interval = newInt
                                                      , tsld = now
                                                      }


-- | Polls and polls until it can't poll no more!
handleInterval = do
  time <- gets timer
  now <- liftIO $ getTicks
  let lastDropDelta = now - (tsld time)
      interv = interval time
  when (lastDropDelta >= interv) $ do ifM currentPieceShouldBeSet -- condition
                                        setPieceAndStartAnew -- then
                                        (movePiece 0 1) -- else
                                      linum <- gets lineNum
                                      let newInt = calculateInterval linum
                                      setTimer $ time { interval = newInt
                                                      , tsld = now
                                                      }


-- | Polls and polls until it can't poll no more!