handleEvent :: Event -> Game ()
handleEvent (KeyUp (Keysym SDLK_LEFT _ _))  = movePiece (-1) 0
handleEvent :: Event -> Game ()
handleEvent (KeyUp (Keysym SDLK_LEFT _ _))  = movePiece (-1) 0
handleEvent (KeyUp (Keysym SDLK_LEFT _ _))  = movePiece (-1) 0