Prevent possible irrefutable pattern

2014-08-05 12:34:37 -07:00
parent 5d5c2393b6
commit cb2e421333
1 changed files with 1 additions and 1 deletions
@@ -62,7 +62,7 @@ wherePred (column, predicate) =
  ("%I " <> op <> "%L", map toSql [column, value])

  where
-    opCode:rest = BS.split ':' $ fromMaybe "" predicate
+    opCode:rest = BS.split ':' $ fromMaybe ":" predicate
    value = BS.intercalate ":" rest
    op = case opCode of
              "eq"  -> "="