@@ -49,6 +49,9 @@ instance IsXhrPayload () where
49instance IsXhrPayload String where
49instance IsXhrPayload String where
50 sendXhrPayload = sendString
50 sendXhrPayload = sendString
52+instance IsXhrPayload Text where
53+ sendXhrPayload = sendString
52instance IsXhrPayload FormData where
55instance IsXhrPayload FormData where
53 sendXhrPayload = sendFormData
56 sendXhrPayload = sendFormData