Fix #701: allow quoted values for IN operator, refactor and Fix #641: allow IN filter to have no values (#854)

2017-04-11 00:57:44 -05:00
parent 5fffbbe381
commit 0a9d9cdded
10 changed files with 224 additions and 106 deletions
@@ -266,7 +266,6 @@ app dbStructure conf apiRequest =
      filterPk sc table pk = sc == (tableSchema . pkTable) pk && table == (tableName . pkTable) pk
      filterCol :: Schema -> TableName -> Column -> Bool
      filterCol sc tb Column{colTable=Table{tableSchema=s, tableName=t}} = s==sc && t==tb
-      filterCol _ _ _ =  False
      allPrKeys = dbPrimaryKeys dbStructure
      allOrigins = ("Access-Control-Allow-Origin", "*") :: Header
      jsonH = toHeader CTApplicationJSON