@@ -43,8 +43,8 @@ type family SchemaByKey (fs :: [(Symbol, Schema)]) (s :: Symbol) :: Schema where
4343 SchemaByKey ( '(a, s) ': tl) fn = SchemaByKey tl fn
4444
4545type family DeleteKey (acc :: [(Symbol, Schema)]) (fn :: Symbol) (fs :: [(Symbol, Schema)]) :: [(Symbol, Schema)] where
46− DeleteKey acc fn ('(fn, a) ': tl) = acc ++ tl
47− DeleteKey acc fn (fna ': tl) = acc ++ (fna ': tl)
46+ DeleteKey acc fn ('(fn, a) ': tl) = acc :++ tl
47+ DeleteKey acc fn (fna ': tl) = acc :++ (fna ': tl)
4848
4949type family UpdateKey
5050 (fn :: Symbol)