errorResponse :: JSON.ToJSON a => HT.Status -> a -> Response
errorResponse status e =
  responseLBS status [toHeader CTApplicationJSON] $ encodeError e
errorResponse :: JSON.ToJSON a => HT.Status -> a -> Response
errorResponse status e =
  responseLBS status [toHeader CTApplicationJSON] $ encodeError e
errorResponse status e =
  responseLBS status [toHeader CTApplicationJSON] $ encodeError e