xrh sendData lens (needs to be type changing)
commitda700a710cd3ead52e1cfbabb3b9d07649258a3d
authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com>
dateMon 20 Feb 2017, 21:13 (10 years ago)
parent4d34ef5
reflex-dom-core/src/Reflex/Dom/Xhr.hs+1−1
@@ -417,7 +417,7 @@ xhrRequestConfig_responseType :: Lens' (XhrRequestConfig a) (Maybe XhrResponseTy
417417xhrRequestConfig_responseType f (XhrRequestConfig x1 x2 x3 x4 x5 x6 x7) = (\y -> XhrRequestConfig x1 x2 x3 y x5 x6 x7) <$> f x4
418418{-# INLINE xhrRequestConfig_responseType #-}
419419
420−xhrRequestConfig_sendData :: Lens' (XhrRequestConfig a) a
420+xhrRequestConfig_sendData :: Lens (XhrRequestConfig a) (XhrRequestConfig b) a b
421421xhrRequestConfig_sendData f (XhrRequestConfig x1 x2 x3 x4 x5 x6 x7) = (\y -> XhrRequestConfig x1 x2 x3 x4 y x6 x7) <$> f x5
422422{-# INLINE xhrRequestConfig_sendData #-}
423423