git.iko.soy/squeal
on dev help sign in
fix tests
9740c43Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Binary.hs+2−2
compare with dev
unifiedsplit
@@ -88,7 +88,7 @@ let
88 querySchwarma :: Query Schema
88 querySchwarma :: Query Schema
89 '[ 'NotNull (EnumFrom Schwarma)]
89 '[ 'NotNull (EnumFrom Schwarma)]
90 '["fromOnly" ::: 'NotNull (EnumFrom Schwarma)]
90 '["fromOnly" ::: 'NotNull (EnumFrom Schwarma)]
91− querySchwarma = values_ (parameter @1 #schwarma `as` #fromOnly)
91+ querySchwarma = values_ (parameter @1 (typedef #schwarma) `as` #fromOnly)
92:}
92:}
93
93
94>>> :{
94>>> :{
@@ -96,7 +96,7 @@ let
96 queryPerson :: Query Schema
96 queryPerson :: Query Schema
97 '[ 'NotNull (CompositeFrom Person)]
97 '[ 'NotNull (CompositeFrom Person)]
98 '["fromOnly" ::: 'NotNull (CompositeFrom Person)]
98 '["fromOnly" ::: 'NotNull (CompositeFrom Person)]
99− queryPerson = values_ (parameter @1 #person `as` #fromOnly)
99+ queryPerson = values_ (parameter @1 (typedef #person) `as` #fromOnly)
100:}
100:}
101
101
102And finally drop the types.
102And finally drop the types.