Include JSON content type for errors

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 [

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