@@ -80,7 +80,7 @@ import Data.Maybe
80import qualified Data.Set as Set
80import qualified Data.Set as Set
81import Data.Text (Text)
81import Data.Text (Text)
82import qualified Data.Text as T
82import qualified Data.Text as T
83−import Data.List
83+import qualified Data.List as L
84import Data.Text.Encoding
84import Data.Text.Encoding
85import qualified Data.Text.Lazy as LT
85import qualified Data.Text.Lazy as LT
86import qualified Data.Text.Lazy.Builder as B
86import qualified Data.Text.Lazy.Builder as B
@@ -202,7 +202,7 @@ newXMLHttpRequestWithError req cb = do
203parseAllHeadersString :: Text -> Map Text Text
203parseAllHeadersString :: Text -> Map Text Text
204parseAllHeadersString s = Map.fromList $ fmap (stripBoth . T.span (/=':')) $
204parseAllHeadersString 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
206 where stripBoth (txt1, txt2) = (T.strip txt1, T.strip $ T.drop 1 txt2)
206 where stripBoth (txt1, txt2) = (T.strip txt1, T.strip $ T.drop 1 txt2)
208newXMLHttpRequest :: (HasWebView m, MonadIO m, IsXhrPayload a) => XhrRequest a -> (XhrResponse -> IO ()) -> m XMLHttpRequest
208newXMLHttpRequest :: (HasWebView m, MonadIO m, IsXhrPayload a) => XhrRequest a -> (XhrResponse -> IO ()) -> m XMLHttpRequest