on develop help sign in
xrh sendData lens (needs to be type changing)
da700a7Hamish Mackenzie
reflex-dom-core/src/Reflex/Dom/Xhr.hs+1−1
@@ -417,7 +417,7 @@ xhrRequestConfig_responseType :: Lens' (XhrRequestConfig a) (Maybe XhrResponseTy
417xhrRequestConfig_responseType f (XhrRequestConfig x1 x2 x3 x4 x5 x6 x7) = (\y -> XhrRequestConfig x1 x2 x3 y x5 x6 x7) <$> f x4
417xhrRequestConfig_responseType f (XhrRequestConfig x1 x2 x3 x4 x5 x6 x7) = (\y -> XhrRequestConfig x1 x2 x3 y x5 x6 x7) <$> f x4
418{-# INLINE xhrRequestConfig_responseType #-}
418{-# INLINE xhrRequestConfig_responseType #-}
419
419
420−xhrRequestConfig_sendData :: Lens' (XhrRequestConfig a) a
420+xhrRequestConfig_sendData :: Lens (XhrRequestConfig a) (XhrRequestConfig b) a b
421xhrRequestConfig_sendData f (XhrRequestConfig x1 x2 x3 x4 x5 x6 x7) = (\y -> XhrRequestConfig x1 x2 x3 x4 y x6 x7) <$> f x5
421xhrRequestConfig_sendData f (XhrRequestConfig x1 x2 x3 x4 x5 x6 x7) = (\y -> XhrRequestConfig x1 x2 x3 x4 y x6 x7) <$> f x5
422{-# INLINE xhrRequestConfig_sendData #-}
422{-# INLINE xhrRequestConfig_sendData #-}
423
423