Support _is_null operator in MSSQL permissions. fix #8479

GITHUB_PR_NUMBER: 9414
GITHUB_PR_URL: https://github.com/hasura/graphql-engine/pull/9414

PR-URL: https://github.com/hasura/graphql-engine-mono/pull/7800
Co-authored-by: Nakano as a Service <20109935+NKNaaS@users.noreply.github.com>
GitOrigin-RevId: 9a409bd023a21cbc43c13f028d088bde7a21c62f
This commit is contained in:
hasura-bot 2023-03-30 19:15:12 +05:30
parent eb3833516b
commit 22d9b54eae

View File

@ -62,6 +62,8 @@ parseBoolExpOperations rhsParser _rootTableFieldInfoMap _fields columnRef value
"_like" -> parseLike "_like" -> parseLike
"$nlike" -> parseNlike "$nlike" -> parseNlike
"_nlike" -> parseNlike "_nlike" -> parseNlike
"$is_null" -> parseIsNull
"_is_null" -> parseIsNull
"_st_contains" -> ABackendSpecific <$> parseGeometryOrGeographyOp ASTContains "_st_contains" -> ABackendSpecific <$> parseGeometryOrGeographyOp ASTContains
"$st_contains" -> ABackendSpecific <$> parseGeometryOrGeographyOp ASTContains "$st_contains" -> ABackendSpecific <$> parseGeometryOrGeographyOp ASTContains
"_st_equals" -> ABackendSpecific <$> parseGeometryOrGeographyOp ASTEquals "_st_equals" -> ABackendSpecific <$> parseGeometryOrGeographyOp ASTEquals
@ -93,6 +95,7 @@ parseBoolExpOperations rhsParser _rootTableFieldInfoMap _fields columnRef value
parseLte = ALTE <$> parseOne parseLte = ALTE <$> parseOne
parseLike = guardType stringTypes >> ALIKE <$> parseOne parseLike = guardType stringTypes >> ALIKE <$> parseOne
parseNlike = guardType stringTypes >> ANLIKE <$> parseOne parseNlike = guardType stringTypes >> ANLIKE <$> parseOne
parseIsNull = bool ANISNOTNULL ANISNULL <$> parseVal
parseGeometryOp f = parseGeometryOp f =
guardType [GeometryType] >> f <$> parseOneNoSess colTy val guardType [GeometryType] >> f <$> parseOneNoSess colTy val
@ -110,3 +113,6 @@ parseBoolExpOperations rhsParser _rootTableFieldInfoMap _fields columnRef value
" is of type " " is of type "
<> ty <<> "; this operator works only on columns of type " <> ty <<> "; this operator works only on columns of type "
<> T.intercalate "/" (map dquote expTys) <> T.intercalate "/" (map dquote expTys)
parseVal :: (J.FromJSON a) => m a
parseVal = decodeValue val