@@ -11,6 +11,7 @@ import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSObjectRef
1111import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSStringRef
1212import Graphics.UI.Gtk.WebKit.JavaScriptCore.JSValueRef
1313import Graphics.UI.Gtk.WebKit.JavaScriptCore.WebFrame
14+import GHCJS.DOM.File
1415
1516data XMLHttpRequest
1617 = XMLHttpRequest { xhrValue :: JSValueRef
@@ -105,6 +106,9 @@ instance IsXhrPayload () where
105106instance IsXhrPayload String where
106107 xmlHttpRequestSend xhr = xmlHttpRequestSendPayload xhr . Just
107108
109+instance IsXhrPayload File where
110+ xmlHttpRequestSend = error "xmlHttpRequestSend{File}: not implemented"
111+
108112xmlHttpRequestSendPayload :: XMLHttpRequest -> Maybe String -> IO ()
109113xmlHttpRequestSendPayload xhr payload = do
110114 let c = xhrContext xhr