a8fc836 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Allow nonstandard Xhr response types

a8fc836Ali Abrar11 years ago

src/Reflex/Dom/Xhr.hs+2

@@ -68,6 +68,7 @@ data XhrResponseType = XhrResponseType_ArrayBuffer

68 | XhrResponseType_Document

69 | XhrResponseType_JSON

70 | XhrResponseType_Text

71+ | XhrResponseType_Other String

71 deriving (Show, Read, Eq, Ord, Typeable)

72 deriving (Show, Read, Eq, Ord, Typeable)

73responseTypeString :: XhrResponseType -> String

74responseTypeString :: XhrResponseType -> String

@@ -77,6 +78,7 @@ responseTypeString rt = case rt of

77 XhrResponseType_Document -> "document"

78 XhrResponseType_Document -> "document"

78 XhrResponseType_JSON -> "json"

79 XhrResponseType_JSON -> "json"

79 XhrResponseType_Text -> "text"

80 XhrResponseType_Text -> "text"

81+ XhrResponseType_Other r -> r

81{-# DEPRECATED _xhrResponse_body "Use _xhrResponse_response or _xhrResponse_responseText instead." #-}

83{-# DEPRECATED _xhrResponse_body "Use _xhrResponse_response or _xhrResponse_responseText instead." #-}

82_xhrResponse_body :: XhrResponse -> Maybe Text

84_xhrResponse_body :: XhrResponse -> Maybe Text