@@ -53,18 +53,18 @@ module Reflex.Dom.Xhr
5353 -- types in a text input field and printing the result on the page:
5454 --
5555 -- @
56− -- url query = "http://example.com/search?query=" <> query
56+ -- url query = "http:\/\/example.com\/search?query=" \<> query
5757 --
5858 -- search queries = do
59− -- responses <- performRequestAsync $ toRequest <$> queries
60− -- return $ view xhrResponse_responseText <$> responses
61− -- where toRequest query = XhrRequest "GET" (url query) def
59+ -- responses \<- performRequestAsync $ toRequest \<$> queries
60+ -- return $ view xhrResponse_responseText \<$> responses
61+ -- where toRequest query = XhrRequest \"GET" (url query) def
6262 --
6363 -- main = mainWidget $ do
64− -- input <- textInput def
64+ -- input \<- textInput def
6565 -- let queries = updated $ input ^. textInput_value
66− -- results <- search queries
67− -- asText <- holdDyn "No results." $ pack . show <$> results
66+ -- results \<- search queries
67+ -- asText \<- holdDyn "No results." $ pack . show \<$> results
6868 -- dynText asText
6969 -- @
7070
@@ -134,7 +134,6 @@ module Reflex.Dom.Xhr
134134 , xmlHttpRequestOpen
135135 , xmlHttpRequestSetRequestHeader
136136 , xmlHttpRequestSetResponseType
137−
138137 )
139138where
140139