Fix Content-Location header when there are no params

Fixes #68
2014-10-14 11:49:36 -07:00
parent f7751c45a2
commit f1feaecf27
2 changed files with 10 additions and 2 deletions
@@ -91,7 +91,7 @@ app conn req respond =
                        rawQueryString req
        return $ addHeaders [
          ("Content-Location",
-           "/" <> cs table <> "?" <> cs canonical
+           "/" <> cs table <> if null canonical then "" else "?" <> cs canonical
          )] r

    ([table], "POST") ->