Add IsXhrPayload instance for String under GHC
commit988125a809a6d5c123427ec3ddf168f0a1d461f9
authorSid Raval <sid.raval@obsidian.systems>
dateMon 22 Aug 2016, 20:54 (10 years ago)
parentddce6f4
src-ghc/Reflex/Dom/Xhr/Foreign.hs+3
@@ -40,6 +40,9 @@ instance IsXhrPayload () where
4040instance IsXhrPayload Text where
4141 xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just
4242
43+instance IsXhrPayload String where
44+ xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just . T.pack
45+
4346instance IsXhrPayload File where
4447 xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"
4548