    :known-methods {s/Keyword s/Any}
    :interceptor-chain [(s/=> Context Context)]
    (s/optional-key :path-info?) s/Bool})
-
-
-(def r (resource-coercer
-     {:access-control {:realm "default"
-                       :scheme "Basic"
-                       :verify identity
-                       :authorization {:roles/methods {:get :admin}}
-                       :allow-origin "*"}}))
-

(s/defschema Authorization
  {(s/optional-key :authorization) s/Any})

(s/defschema Realms
  {(s/optional-key :realms)
   {Realm (merge AuthSchemes Authorization NamespacedEntries)}})

(s/defschema Cors
  {(s/optional-key :allow-origin) (s/conditional fn? (s/=> (s/conditional ifn? #{s/Str} :else s/Str) Context) :else StringSet)

       x))})

(def SingleSchemeMapping
  {RealmValue
   (fn [x]
     (if (:verify x)
       (-> x
