break: remove binary field logic, raw-media-types

BREAKING CHANGE Can be done later with custom media types
2023-10-26 09:04:02 -05:00
parent 6920a88dc0
commit 14d030b96c
26 changed files with 54 additions and 121 deletions
@@ -12,7 +12,8 @@ import SpecHelper (acceptHdrs)

 spec :: SpecWith ((), Application)
 spec = describe "When raw-media-types is set to \"text/html\"" $
-  it "can get raw output with Accept: text/html" $
+  it "can get raw output with Accept: text/html" $ do
+    pendingWith "TBD"
    request methodGet "/rpc/welcome.html" (acceptHdrs "text/html") ""
      `shouldRespondWith`
      [str|