(defn GET [url]
  (let [ch (chan 1)]
    (xhr/send url
      (fn [event]
        (let [res (-> event .-target .getResponseJson (js->clj :keywordize-keys true))]
          (go (>! ch res)
              (close! ch)))))
    ch))