initialGameState :: State
initialGameState = State
    { well = emptyWell
    , time = 0
    , deltaTime = 0
    , secondsToNextMove = 0
    , piece = tetrominoO
    , piecePos = (0, 0)
    , randomSeed = mkStdGen 0 -- found better way!
    , score = 0
    , accelerate = False
    }
initialGameState :: State
initialGameState = State
    { well = emptyWell
    , time = 0
    , deltaTime = 0
    , secondsToNextMove = 0
    , piece = tetrominoO
    , piecePos = (0, 0)
    , randomSeed = mkStdGen 0 -- found better way!
    , score = 0
    , accelerate = False
    }
initialGameState = State
    { well = emptyWell
    , time = 0
    , deltaTime = 0
    , secondsToNextMove = 0
    , piece = tetrominoO
    , piecePos = (0, 0)
    , randomSeed = mkStdGen 0 -- found better way!
    , score = 0
    , accelerate = False
    }