git.iko.soy/reflex-dom
on develop help sign in
Add IsXhrPayload instance for String under GHC
988125aSid Raval
src-ghc/Reflex/Dom/Xhr/Foreign.hs+3
compare with develop
unifiedsplit
@@ -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