@@ -467,7 +467,8 @@ instance SupportsServantReflex t m => HasClient t m Raw tag where
467467-- > where host = BaseUrl Http "localhost" 8080
468468-- > -- then you can just use "addBook" to query that endpoint
469469
470−instance (GHCJS'MimeRender ct a, IsXhrPayload (ToSend ct a), Show (ToSend ct a), HasClient t m sublayout tag, Reflex t)
470+instance (GHCJS'MimeRender ct a, IsXhrPayload (ToSend ct a), Show (ToSend ct a),
471+ HasClient t m sublayout tag, Reflex t)
471472 => HasClient t m (ReqBody (ct ': cts) (a :: Type) :> sublayout) tag where
472473
473474 type Client t m (ReqBody (ct ': cts) a :> sublayout) tag =
@@ -493,10 +494,8 @@ class Accept ctype => GHCJS'MimeRender (ctype :: Type) (a :: Type) where
493494 :: IsXhrPayload (ToSend ctype a)
494495 => Proxy ctype -> Proxy a -> ToConvert ctype a -> ToSend ctype a
495496 default ghcjsMimeRender
496− :: ( IsXhrPayload (ToSend ctype a)
497− , MimeRender ctype a
498− , MimeRender ctype (ToConvert ctype a)
499− , ToSend ctype a ~ BS.ByteString)
497+ :: (IsXhrPayload (ToSend ctype a), MimeRender ctype a,
498+ MimeRender ctype (ToConvert ctype a), ToSend ctype a ~ BS.ByteString)
500499 => Proxy ctype -> Proxy a -> ToConvert ctype a -> ToSend ctype a
501500 ghcjsMimeRender ctype _ = BL.toStrict . mimeRender ctype
502501