                 ::ms/size-bytes
                 ::ms/provenance
                 ::ms/sharing]
-          :opt [::ss/id                
+          :opt [::ss/id
                 ::ms/file-type
                 ::ms/header]))
 

                          % 2))
      m')))

(s/fdef schema-transport->internal      
        :ret ::ss/create-schema-request)

(defn schema-transport->internal

                           (::ms/type file-metadata))
                        (= "stored"
                           (::ms/type file-metadata)))
                    (case (or (::ms/file-type meta)
                              (::ms/file-type file-metadata))
                      "csv" (if-not (nil? (::ms/header meta))
                              (= (::ms/header meta)
                                 (::ms/header file-metadata))
                              (true? (::ms/header file-metadata)))
                      true)))
        :ret ::ms/file-metadata)

(defn raise-schema
