                                               ValueType/XS_STRING (str vval))
                              acc)
                            (doto request-factory (.setOptions ro))
-                           options)]
+                           variables)]
     (cond (= :raw types) (.submitRequest session request)
           :else (convert-types (.submitRequest session request) types))))
 

(defn submit-request
  "Construct, submit, and return raw results of request for the given
  `session` using `request-factory` and `query`. Modify it
  with (possibly empty) `options` and `variables` maps. Applies type
  conversion according to defaults and `types`."
  [request-factory session query options variables types]
  (let [ro      (request-options options)
        request (reduce-kv (fn [acc vname vval]

    :timeout-millis
    :timezone})

(defn request-options
  "Creates a Request Options object (to pass to a Request or a
  Session) out of the given options map. See `valid-request-options`
  for supported keywords."
