@@ -138,7 +138,7 @@ data Req t = Req
138138 }
139139
140140defReq :: Req t
141−defReq = Req "GET" [] [] Nothing [] def Nothing -- False (\_ -> return ())
141+defReq = Req "GET" [] [] Nothing [] def Nothing
142142
143143prependToPathParts :: Dynamic t (Either Text Text) -> Req t -> Req t
144144prependToPathParts p req =
@@ -229,7 +229,7 @@ reqToReflexRequest reqMeth reqHost opts req =
229229 , _xhrRequestConfig_password = Nothing
230230 , _xhrRequestConfig_responseType = Nothing
231231 , _xhrRequestConfig_sendData = ""
232− , _xhrRequestConfig_withCredentials = False
232+ , _xhrRequestConfig_withCredentials = optsWithCredentials opts
233233 }
234234 Just rBody -> liftA2 mkConfigBody xhrHeaders rBody
235235