Fix Location link in post to db lacking a primary key

Fixes #29
2014-09-07 14:12:51 -07:00
parent d166cbc371
commit 4d81959a2a
2 changed files with 11 additions and 1 deletions
@@ -75,7 +75,9 @@ app conn req respond = do
        jsonBodyAction req (\row -> do
          allvals <- insert ver table row conn
          keys <- primaryKeyColumns ver (unpack table) conn
-          let keyvals = allvals `intersection` fromList (zip keys $ repeat SqlNull)
+          let keyvals = if null keys
+                        then allvals
+                        else allvals `intersection` fromList (zip keys $ repeat SqlNull)
          let params = urlEncodeVars $ map (\t -> (fst t, "eq." <> convert (snd t) :: String)) $ toList keyvals
          return $ responseLBS status201
            [ jsonContentType