Fix hlint
commit14f14464e29a36e473c0bc2a6933575aab8c1ab5
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateSat 28 Apr 2018, 18:34 (8 years ago)
parent545539a
reflex-dom-core/src/Reflex/Dom/Xhr.hs+1−1
@@ -378,7 +378,7 @@ decodeText = decode . BL.fromStrict . encodeUtf8
378378
379379-- | Convenience function to decode JSON-encoded responses.
380380decodeXhrResponse :: FromJSON a => XhrResponse -> Maybe a
381−decodeXhrResponse = join . fmap decodeText . _xhrResponse_responseText
381+decodeXhrResponse = decodeText <=< _xhrResponse_responseText
382382
383383#ifdef USE_TEMPLATE_HASKELL
384384concat <$> mapM makeLenses