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

Prevent possible irrefutable pattern

Browse Source
This commit is contained in:
Joe Nelson
2014-08-05 12:34:37 -07:00
parent 5d5c2393b6
commit cb2e421333
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PgQuery.hs
+1 -1
View File
@@ -62,7 +62,7 @@ wherePred (column, predicate) =
("%I " <> op <> "%L", map toSql [column, value]) ("%I " <> op <> "%L", map toSql [column, value])
where where
opCode:rest = BS.split ':' $ fromMaybe "" predicate opCode:rest = BS.split ':' $ fromMaybe ":" predicate
value = BS.intercalate ":" rest value = BS.intercalate ":" rest
op = case opCode of op = case opCode of
"eq" -> "=" "eq" -> "="