eckOnKeys :: GameState -> GameState
checkOnKeys game | w = movePlayer North game
                 | a = movePlayer West game
                 | s = movePlayer South game
                 | d = movePlayer East game
                 | otherwise = game
    where
    w = wdown game 
    a = adown game
    s = sdown game
    d = ddown game
checkOnKeys :: GameState -> GameState
checkOnKeys game | w = movePlayer North game
                 | a = movePlayer West game
                 | s = movePlayer South game
                 | d = movePlayer East game
                 | otherwise = game
    where
    w = wdown game 
    a = adown game
    s = sdown game
    d = ddown game
checkOnKeys game | w = movePlayer North game
                 | a = movePlayer West game
                 | s = movePlayer South game
                 | d = movePlayer East game
                 | otherwise = game
    where
    w = wdown game 
    a = adown game
    s = sdown game
    d = ddown game