on develop help sign in
Merge pull request #87 from reflex-frp/sr-xhr-string-instance
c40b25fRyan Trinkle
src-ghc/Reflex/Dom/Xhr/Foreign.hs+3
@@ -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
42
42
43+instance IsXhrPayload String where
44+ xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just . T.pack
45+
43instance IsXhrPayload File where
46instance IsXhrPayload File where
44 xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"
47 xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"
45
48