 
 (s/defn new-control-url :- comm/URI
   [_]
-  (comment (strict-map->URI {:protocol "inproc"
-                             :address "local"
-                             :port nil}))
   {:protocol "inproc"
    :address "local"
    :port nil})

   (assoc this :context nil)))

(defmulti socket-type
  #(class %))

;;; TODO: These next 3 records needs to collapse into one.

         address "localhost"}} :- {:ports {s/Keyword s/Int}
                                   s/Any s/Any}]
  (log/debug "Trying to set up a URL based on" (util/pretty config))
  {:protocol protocol
   :address address
   :port port})
