server :: Server API
server = commutesByPerson
  :<|> commutesByPersonAndLocation
server :: Server API
server = commutesByPerson
  :<|> commutesByPersonAndLocation
server = commutesByPerson
  :<|> commutesByPersonAndLocation