e0c18fe · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Fix type of xhrResponse_headers lens when TH is disabled

commite0c18fe547a984dfdc8ad0c727bb6fabc12d3143 authorTom Smalley <tfsmalley@gmail.com> dateThu 9 Apr 2020, 15:43 (7 years ago) parent8bdda4e

1 file changed+1−1

unifiedsplit

reflex-dom-core/src/Reflex/Dom/Xhr.hs+1−1

@@ -446,7 +446,7 @@ xhrResponse_responseText :: Lens' XhrResponse (Maybe Text)

446446xhrResponse_responseText f (XhrResponse x1 x2 x3 x4 x5) = (\y -> XhrResponse x1 x2 x3 y x5) <$> f x4

447447{-# INLINE xhrResponse_responseText #-}

448448

449−xhrResponse_headers :: Lens' XhrResponse (Map Text Text)

449+xhrResponse_headers :: Lens' XhrResponse (Map (CI Text) Text)

450450xhrResponse_headers f (XhrResponse x1 x2 x3 x4 x5) = (\y -> XhrResponse x1 x2 x3 x4 y) <$> f x5

451451{-# INLINE xhrResponse_headers #-}

452452