on dev help sign in
Update Set.hs
commit0f3d84fcee71e7d43652d60f6406a503c65b30de authorEitan Chatav <eitan@EEM109LMBP-1.local> dateWed 25 Sep 2019, 18:55 (7 years ago) parent5cc0469
1 file changed+6−6
squeal-postgresql/src/Squeal/PostgreSQL/Expression/Set.hs+6−6
squeal-postgresql/src/Squeal/PostgreSQL/Expression/Set.hs+6−6
@@ -27,11 +27,11 @@ module Squeal.PostgreSQL.Expression.Set
2727 , SetFunction
2828 , unsafeSetFunction
2929 , SetFunctionDB
30− , setOfFunction
30+ , setFunction
3131 , SetFunctionN
3232 , unsafeSetFunctionN
3333 , SetFunctionNDB
34− , setOfFunctionN
34+ , setFunctionN
3535 ) where
3636
3737import GHC.TypeLits
@@ -69,12 +69,12 @@ unsafeSetFunction
6969unsafeSetFunction x = UnsafeFromClause $
7070 renderSymbol @fun <> parenthesized (renderSQL x)
7171
72−setOfFunction
72+setFunction
7373 :: ( Has sch schemas schema
7474 , Has fun schema ('Function ('[ty] :=> 'ReturnsTable row)) )
7575 => QualifiedAlias sch fun
7676 -> SetFunctionDB fun schemas ty row
77−setOfFunction _ = unsafeSetFunction
77+setFunction _ = unsafeSetFunction
7878
7979{- |
8080A @RankNType@ for set returning functions with multiple argument.
@@ -100,13 +100,13 @@ type SetFunctionNDB fun schemas tys row
100100 -> FromClause outer commons schemas params '[fun ::: row]
101101 -- ^ output
102102
103−setOfFunctionN
103+setFunctionN
104104 :: ( Has sch schemas schema
105105 , Has fun schema ('Function (tys :=> 'ReturnsTable row))
106106 , SOP.SListI tys )
107107 => QualifiedAlias sch fun
108108 -> SetFunctionNDB fun schemas tys row
109−setOfFunctionN _ = unsafeSetFunctionN
109+setFunctionN _ = unsafeSetFunctionN
110110
111111{- | @generateSeries (start *: stop)@
112112