@@ -80,7 +80,7 @@ import Data.Maybe
8080import qualified Data.Set as Set
8181import Data.Text (Text)
8282import qualified Data.Text as T
83−import Data.List
83+import qualified Data.List as L
8484import Data.Text.Encoding
8585import qualified Data.Text.Lazy as LT
8686import qualified Data.Text.Lazy.Builder as B
@@ -202,7 +202,7 @@ newXMLHttpRequestWithError req cb = do
202202
203203parseAllHeadersString :: Text -> Map Text Text
204204parseAllHeadersString s = Map.fromList $ fmap (stripBoth . T.span (/=':')) $
205− dropWhileEnd T.null $ T.splitOn (T.pack "\r\n") s
205+ L.dropWhileEnd T.null $ T.splitOn (T.pack "\r\n") s
206206 where stripBoth (txt1, txt2) = (T.strip txt1, T.strip $ T.drop 1 txt2)
207207
208208newXMLHttpRequest :: (HasWebView m, MonadIO m, IsXhrPayload a) => XhrRequest a -> (XhrResponse -> IO ()) -> m XMLHttpRequest