Remove route-pair coercion from vhosts

This breaks custom matchers, as mentioned in juxt#187.  This does not fix
 juxt#187 because RoutePair generally needs fixing, but this makes it
sufficiently optional for users.

src/bidi/vhosts.clj

@@ -4,7 +4,6 @@
   (:require
    [bidi.bidi :as bidi :refer :all :exclude [path-for]]
    [bidi.ring :as br]
-   [bidi.schema :as bsc]
    [schema.core :as s]
    [schema.coerce :as sc]
    [schema.utils :refer [error?]])
@@ -16,8 +15,8 @@
                     keyword? s/Keyword))
 
 (s/defschema VHostWithRoutes
-  (s/constrained [(s/one [VHost] "Virtual host")
-                  bsc/RoutePair] (comp not-empty first) "Must have at least one vhost"))
+  (s/constrained [(s/one [VHost] "Virtual host") s/Any]
+                 (comp not-empty first) "Must have at least one vhost"))
 
 (defn uri->host [^URI uri]
   (cond-> (.getHost uri)

test/bidi/vhosts_test.clj

@@ -6,6 +6,7 @@
    [schema.core :as s]
    [schema.utils :refer [error?]]
    [bidi.vhosts :refer :all]
+   [bidi.bidi :as bidi]
    [ring.mock.request :refer (request) :rename {request mock-request}]))
 
 (def example-vhosts-model
@@ -185,3 +186,18 @@
           "http://d.com:8002"
           "https://example.org"]
          (vhosts->roots (:vhosts example-vhosts-model) {:scheme :https :headers {"host" "example.org"}}))))
+
+(defrecord ARecord []
+  bidi/Pattern)
+
+(deftest record-survives-test
+  (let [routes [(->ARecord) :match]
+        vhost (vhosts-model [["https://example.com"] routes])]
+    (is (=
+         (-> vhost
+             :vhosts
+             ;; The first (and only) pairing
+             first
+             ;; The route structure
+             second)
+         routes))))