@@ -40,6 +40,9 @@ instance IsXhrPayload () where
40instance IsXhrPayload Text where
40instance IsXhrPayload Text where
41 xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just
41 xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just
43+instance IsXhrPayload String where
44+ xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just . T.pack
43instance IsXhrPayload File where
46instance IsXhrPayload File where
44 xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"
47 xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"