Servant.Foreign replaced reqBodyIsJSON with ReqBodyMultipart

Andrew Cady · Andrew Cady · commit beb15b3b5ebd · 2018-09-17T17:30:10.000-04:00
diff --git a/src/Servant/Multipart.hs b/src/Servant/Multipart.hs
@@ -535,6 +535,6 @@ instance (HasForeignType lang ftype a, HasForeign lang ftype api)
   foreignFor lang ftype Proxy req =
     foreignFor lang ftype (Proxy @api) $
       req & reqBody .~ Just t
-          & reqBodyIsJSON .~ False
+          & reqBodyContentType .~ ReqBodyMultipart
     where
       t = typeFor lang ftype (Proxy @a)
