git.iko.soy/schematic
on master help sign in
Revert "Fix 8.2.2 singletons"
14ded29Denis Redozubov
src/Data/Schematic/Migration.hs+2−2
compare with master
unifiedsplit
@@ -43,8 +43,8 @@ type family SchemaByKey (fs :: [(Symbol, Schema)]) (s :: Symbol) :: Schema where
43 SchemaByKey ( '(a, s) ': tl) fn = SchemaByKey tl fn
43 SchemaByKey ( '(a, s) ': tl) fn = SchemaByKey tl fn
44
44
45type family DeleteKey (acc :: [(Symbol, Schema)]) (fn :: Symbol) (fs :: [(Symbol, Schema)]) :: [(Symbol, Schema)] where
45type family DeleteKey (acc :: [(Symbol, Schema)]) (fn :: Symbol) (fs :: [(Symbol, Schema)]) :: [(Symbol, Schema)] where
46− DeleteKey acc fn ('(fn, a) ': tl) = acc ++ tl
46+ DeleteKey acc fn ('(fn, a) ': tl) = acc :++ tl
47− DeleteKey acc fn (fna ': tl) = acc ++ (fna ': tl)
47+ DeleteKey acc fn (fna ': tl) = acc :++ (fna ': tl)
48
48
49type family UpdateKey
49type family UpdateKey
50 (fn :: Symbol)
50 (fn :: Symbol)