extend-schema doesn't load primitive types correctly

[stevebuik]

(let [conn (hodur/init-schema '[A [^{:type String} b]])]
(hodur/extend-schema conn '[C [^{:type String} d]])
(->> @conn
(d/q '[:find [(pull ?e [* {:field/_parent [* {:field/type [*]}]}]) ...]
:where
[?e :type/name]
[?e :type/nature :user]])
(mapv (comp :field/type first :field/_parent))))

Not sure if this is the intended behaviour for extend-schema but I would expect the string primitive type to be returned for the d field as well