diff --git a/src/Error.hs b/src/Error.hs
index 63d1e089b..e8f8a9910 100644
--- a/src/Error.hs
+++ b/src/Error.hs
@@ -12,11 +12,13 @@ import Data.Aeson ((.=))
 import Data.String.Conversions (cs)
 import Data.String.Utils(replace)
 import Network.Wai(Response, responseLBS)
+import Network.HTTP.Types.Header
 
 type PgError = H.SessionError P.Postgres
 
 errResponse :: PgError -> Response
-errResponse e = responseLBS (httpStatus e) [] (JSON.encode e)
+errResponse e = responseLBS (httpStatus e)
+  [(hContentType, "application/json")] (JSON.encode e)
 
 instance JSON.ToJSON PgError where
   toJSON (H.TxError (P.ErroneousResult c m d h)) = JSON.object [
diff --git a/test/Feature/InsertSpec.hs b/test/Feature/InsertSpec.hs
index 2aaf3f856..4c50c023d 100644
--- a/test/Feature/InsertSpec.hs
+++ b/test/Feature/InsertSpec.hs
@@ -16,8 +16,6 @@ import Control.Monad (replicateM_)
 
 import TestTypes(IncPK(..), CompoundPK(..))
 
---import Debug.Trace
-
 spec :: Spec
 spec = afterAll_ resetDb $ around withApp $ do
   describe "Posting new record" $ do