feat: apply all function settings as transaction-scoped settings

src/PostgREST/SchemaCache/Routine.hs

@@ -6,6 +6,7 @@ module PostgREST.SchemaCache.Routine
   , Routine(..)
   , RoutineParam(..)
   , FuncVolatility(..)
+  , FuncSettings
   , RoutineMap
   , RetType(..)
   , funcReturnsScalar
@@ -49,30 +50,32 @@ data FuncVolatility
   | Immutable
   deriving (Eq, Show, Ord, Generic, JSON.ToJSON)
 
+type FuncSettings = [(Text,Text)]
+
 data Routine = Function
-  { pdSchema      :: Schema
-  , pdName        :: Text
-  , pdDescription :: Maybe Text
-  , pdParams      :: [RoutineParam]
-  , pdReturnType  :: RetType
-  , pdVolatility  :: FuncVolatility
-  , pdHasVariadic :: Bool
-  , pdIsoLvl      :: Maybe SQL.IsolationLevel
-  , pdTimeout     :: Maybe Text
+  { pdSchema       :: Schema
+  , pdName         :: Text
+  , pdDescription  :: Maybe Text
+  , pdParams       :: [RoutineParam]
+  , pdReturnType   :: RetType
+  , pdVolatility   :: FuncVolatility
+  , pdHasVariadic  :: Bool
+  , pdIsoLvl       :: Maybe SQL.IsolationLevel
+  , pdFuncSettings :: FuncSettings
   }
   deriving (Eq, Show, Generic)
 -- need to define JSON manually bc SQL.IsolationLevel doesn't have a JSON instance(and we can't define one for that type without getting a compiler error)
 instance JSON.ToJSON Routine where
-  toJSON (Function sch nam desc params ret vol hasVar _ tout) = JSON.object
+  toJSON (Function sch nam desc params ret vol hasVar _ sets) = JSON.object
     [
-      "pdSchema"      .= sch
-    , "pdName"        .= nam
-    , "pdDescription" .= desc
-    , "pdParams"      .= JSON.toJSON params
-    , "pdReturnType"  .= JSON.toJSON ret
-    , "pdVolatility"  .= JSON.toJSON vol
-    , "pdHasVariadic" .= JSON.toJSON hasVar
-    , "pdTimeout"     .= tout
+      "pdSchema"       .= sch
+    , "pdName"         .= nam
+    , "pdDescription"  .= desc
+    , "pdParams"       .= JSON.toJSON params
+    , "pdReturnType"   .= JSON.toJSON ret
+    , "pdVolatility"   .= JSON.toJSON vol
+    , "pdHasVariadic"  .= JSON.toJSON hasVar
+    , "pdFuncSettings" .= JSON.toJSON sets
     ]
 
 data RoutineParam = RoutineParam
@@ -86,10 +89,10 @@ data RoutineParam = RoutineParam
 
 -- Order by least number of params in the case of overloaded functions
 instance Ord Routine where
-  Function schema1 name1 des1 prms1 rt1 vol1 hasVar1 iso1 tout1 `compare` Function schema2 name2 des2 prms2 rt2 vol2 hasVar2 iso2 tout2
+  Function schema1 name1 des1 prms1 rt1 vol1 hasVar1 iso1 sets1 `compare` Function schema2 name2 des2 prms2 rt2 vol2 hasVar2 iso2 sets2
     | schema1 == schema2 && name1 == name2 && length prms1 < length prms2  = LT
     | schema2 == schema2 && name1 == name2 && length prms1 > length prms2  = GT
-    | otherwise = (schema1, name1, des1, prms1, rt1, vol1, hasVar1, iso1, tout1) `compare` (schema2, name2, des2, prms2, rt2, vol2, hasVar2, iso2, tout2)
+    | otherwise = (schema1, name1, des1, prms1, rt1, vol1, hasVar1, iso1, sets1) `compare` (schema2, name2, des2, prms2, rt2, vol2, hasVar2, iso2, sets2)
 
 -- | A map of all procs, all of which can be overloaded(one entry will have more than one Routine).
 -- | It uses a HashMap for a faster lookup.