@@ -68,6 +68,7 @@ data XhrResponseType = XhrResponseType_ArrayBuffer
6868 | XhrResponseType_Document
6969 | XhrResponseType_JSON
7070 | XhrResponseType_Text
71+ | XhrResponseType_Other String
7172 deriving (Show, Read, Eq, Ord, Typeable)
7273
7374responseTypeString :: XhrResponseType -> String
@@ -77,6 +78,7 @@ responseTypeString rt = case rt of
7778 XhrResponseType_Document -> "document"
7879 XhrResponseType_JSON -> "json"
7980 XhrResponseType_Text -> "text"
81+ XhrResponseType_Other r -> r
8082
8183{-# DEPRECATED _xhrResponse_body "Use _xhrResponse_response or _xhrResponse_responseText instead." #-}
8284_xhrResponse_body :: XhrResponse -> Maybe Text