From 42faaa97c96b856ef93b67e7735051a5ba1f897d Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Sat, 22 Nov 2014 22:06:39 -0800
Subject: [PATCH] Include all fields in Location header when no primary keys
 defined

---
 src/App.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/App.hs b/src/App.hs
index 13aed805c..d46466671 100644
--- a/src/App.hs
+++ b/src/App.hs
@@ -112,7 +112,9 @@ app req =
             Just inserted = decode (cs insertedJson) :: Maybe Object
 
         primaryKeys <- map cs <$> primaryKeyColumns qt
-        let primaries = filterWithKey (const . (`elem` primaryKeys)) inserted
+        let primaries = if Prelude.null primaryKeys
+            then inserted
+            else filterWithKey (const . (`elem` primaryKeys)) inserted
         let params = urlEncodeVars
               $ map (\t -> (cs $ fst t, "eq." <> cs (encode $ snd t)))
               $ sortBy (comparing fst) $ toList primaries