toMessage e (GameUpdate (StairsTaken Up _)) = Just $ "You've gone up stairs."
toMessage e (GameUpdate (StairsTaken Up _)) = Just $ "You've gone up stairs."
toMessage e (GameUpdate (StairsTaken Up _)) = Just $ "You've gone up stairs."