jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

constrain cast parameters to letters only

Browse Source
This commit is contained in:
Ruslan Talpa
2015-09-05 16:54:09 +03:00
parent cc418d3519
commit 92a1d8c7e3
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/PgQuery.hs
+2 -1
View File
@@ -143,7 +143,8 @@ select table params =
selectTerm :: QualifiedIdentifier -> T.Text -> PStmt selectTerm :: QualifiedIdentifier -> T.Text -> PStmt
selectTerm table col = selectTerm table col =
case T.splitOn "::" col of case T.splitOn "::" col of
[colName,castTo] -> B.Stmt ("CAST (" <> pgFmtJsonbPath table (cs colName) <> " AS " <> castTo <> " )" <> asT (jsonbPath colName)) empty True [colName,castTo] -> B.Stmt ("CAST (" <> pgFmtJsonbPath table (cs colName) <> " AS " <> castToSafe <> " )" <> asT (jsonbPath colName)) empty True
where castToSafe = T.filter ( `elem` ['a'..'z'] ) castTo
_-> B.Stmt (pgFmtJsonbPath table (cs col) <> asT (jsonbPath col)) empty True _-> B.Stmt (pgFmtJsonbPath table (cs col) <> asT (jsonbPath col)) empty True
where where
jsonbPath :: T.Text -> Maybe JsonbPath jsonbPath :: T.Text -> Maybe JsonbPath