Fix insert

2014-12-06 17:42:20 -08:00
parent eb7e9586ab
commit 8e9bbe6dcb
2 changed files with 14 additions and 2 deletions
@@ -130,7 +130,7 @@ app req =
              let vals = elems obj
              H.unit . coerce $ iffNotT
                      (whereT qq $ update qt cols vals)
-                      (insertInto qt cols vals)
+                      (insertSelect qt cols vals)
              return $ responseLBS status204 [ jsonH ] ""

              else return $ if Prelude.null tableCols