let mk location gravity message =
  (`message (location, gravity, message): error)