Nest response JSON more shallowly

2015-08-20 22:14:08 -07:00
parent cf04fbd6ea
commit 28f771324d
2 changed files with 1 additions and 4 deletions
@@ -295,9 +295,6 @@ csvMT = "text/csv"
 jsonH :: Header
 jsonH = (hContentType, jsonMT)

-textH :: Header
-textH = (hContentType, "text/plain")
-
 contentTypeForAccept :: Maybe BS.ByteString -> Maybe BS.ByteString
 contentTypeForAccept accept
  | isNothing accept || hasJson = Just jsonMT