git.iko.soy/reflex-dom
on develop help sign in
Add stub instance for IsXhrPayload File
8890bdcRyan Trinkle
src-ghc/Reflex/Dom/Xhr/Foreign.hs+4
compare with develop
unifiedsplit
@@ -11,6 +11,7 @@ import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSObjectRef
11import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSStringRef
11import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSStringRef
12import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSValueRef
12import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSValueRef
13import Graphics.UI.Gtk.WebKit.JavaScriptCore.WebFrame
13import Graphics.UI.Gtk.WebKit.JavaScriptCore.WebFrame
14+import GHCJS.DOM.File
14
15
15data XMLHttpRequest
16data XMLHttpRequest
16 = XMLHttpRequest { xhrValue :: JSValueRef
17 = XMLHttpRequest { xhrValue :: JSValueRef
@@ -105,6 +106,9 @@ instance IsXhrPayload () where
105instance IsXhrPayload String where
106instance IsXhrPayload String where
106 xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just
107 xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just
107
108
109+instance IsXhrPayload File where
110+ xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"
111+
108xmlHttpRequestSendPayload :: XMLHttpRequest -> Maybe String -> IO ()
112xmlHttpRequestSendPayload :: XMLHttpRequest -> Maybe String -> IO ()
109xmlHttpRequestSendPayload xhr payload = do
113xmlHttpRequestSendPayload xhr payload = do
110 let c = xhrContext xhr
114 let c = xhrContext xhr