You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
-- 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)
67
-
instanceJSON.ToJSONRoutinewhere
68
-
toJSON (Function sch nam desc params ret vol hasVar _ sets) =JSON.object
69
-
[
70
-
"pdSchema".= sch
71
-
, "pdName".= nam
72
-
, "pdDescription".= desc
73
-
, "pdParams".=JSON.toJSON params
74
-
, "pdReturnType".=JSON.toJSON ret
75
-
, "pdVolatility".=JSON.toJSON vol
76
-
, "pdHasVariadic".=JSON.toJSON hasVar
77
-
, "pdFuncSettings".=JSON.toJSON sets
78
-
]
65
+
deriving (Eq, Show, Generic, JSON.ToJSON)
66
+
67
+
-- SQL.IsolationLevel doesn't have a default ToJSON instance, so we derive it.
0 commit comments