server: fix the FromJSON instance of FunctionPermissionsCtx

GitOrigin-RevId: 506d654ef9cad95ffdddbf832a2779fc34e6bd00
This commit is contained in:
Karthikeyan Chinnakonda 2021-02-01 11:32:30 +05:30 committed by hasura-bot
parent 64d776c9de
commit 05f21a2768

View File

@ -183,11 +183,8 @@ data FunctionPermissionsCtx
deriving (Show, Eq)
instance FromJSON FunctionPermissionsCtx where
parseJSON = withText "FunctionPermissionsCtx" $ \t ->
case T.toLower t of
"true" -> pure FunctionPermissionsInferred
"false" -> pure FunctionPermissionsManual
_ -> fail "infer_function_permissions should be a boolean value"
parseJSON = withBool "FunctionPermissionsCtx" $
pure . bool FunctionPermissionsManual FunctionPermissionsInferred
instance ToJSON FunctionPermissionsCtx where
toJSON = \case