@@ -53,18 +53,18 @@ module Reflex.Dom.Xhr
53 -- types in a text input field and printing the result on the page:
53 -- types in a text input field and printing the result on the page:
56− -- url query = "http://example.com/search?query=" <> query
56+ -- url query = "http:\/\/example.com\/search?query=" \<> query
58 -- search queries = do
58 -- search queries = do
59− -- responses <- performRequestAsync $ toRequest <$> queries
59+ -- responses \<- performRequestAsync $ toRequest \<$> queries
60− -- return $ view xhrResponse_responseText <$> responses
60+ -- return $ view xhrResponse_responseText \<$> responses
61− -- where toRequest query = XhrRequest "GET" (url query) def
61+ -- where toRequest query = XhrRequest \"GET" (url query) def
63 -- main = mainWidget $ do
63 -- main = mainWidget $ do
64− -- input <- textInput def
64+ -- input \<- textInput def
65 -- let queries = updated $ input ^. textInput_value
65 -- let queries = updated $ input ^. textInput_value
66− -- results <- search queries
66+ -- results \<- search queries
67− -- asText <- holdDyn "No results." $ pack . show <$> results
67+ -- asText \<- holdDyn "No results." $ pack . show \<$> results
68 -- dynText asText
68 -- dynText asText
@@ -134,7 +134,6 @@ module Reflex.Dom.Xhr
134 , xmlHttpRequestOpen
134 , xmlHttpRequestOpen
135 , xmlHttpRequestSetRequestHeader
135 , xmlHttpRequestSetRequestHeader
136 , xmlHttpRequestSetResponseType
136 , xmlHttpRequestSetResponseType