Remove charset from content types for warning supression

frameworks/Haskell/yesod/bench/src/yesod.hs

@@ -108,7 +108,7 @@ getJsonR :: Handler ()
 getJsonR = sendWaiResponse
          $ responseBuilder
             status200
-            [("Content-Type", typeJson)]
+            [("Content-Type", simpleContentType typeJson)]
          $ copyByteString
          $ L.toStrict
          $ encode
@@ -168,7 +168,7 @@ getDb query = do
     sendWaiResponse
         $ responseBuilder
             status200
-            [("Content-Type", typeJson)]
+            [("Content-Type", simpleContentType typeJson)]
         $ copyByteString
         $ L.toStrict
         $ encode value
@@ -257,7 +257,7 @@ getPlaintextR :: Handler ()
 getPlaintextR = sendWaiResponse
               $ responseBuilder
                 status200
-                [("Content-Type", typePlain)]
+                [("Content-Type", simpleContentType typePlain)]
               $ copyByteString "Hello, World!"
 
 fortuneTemplate :: [(Int64, Text)] -> Builder