How to query the SWAPI (Star Wars API) with racket

sw_query.rkt

#lang racket

(require json)
(require net/url)

(define (get url)
  (call/input-url (string->url url)
                  (curry get-pure-port #:redirections 4)
                  port->string))

(define (get-things type)
  (hash-ref (string->jsexpr
             (get (string-append "http://swapi.co/api/" type "/")))
            'results))

(define (get-names result)
  (map (lambda (h) (hash-ref h 'name)) result))