Went from a JSPtr to any JS Value. :)

UU-ComputerScience · Jan 9, 2012 · d477c9f · d477c9f
1 parent b52b24d
commit d477c9f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/uhc-jscript/src/Language/UHC/JScript/JQuery/Ajax.hs b/uhc-jscript/src/Language/UHC/JScript/JQuery/Ajax.hs
@@ -52,7 +52,7 @@ toJSOptions options = let url'         = toJS (ao_url         options)
                                        }
 
 
-ajaxBackend :: JS r => (JSPtr a -> IO ()) -> AjaxOptions a -> JSPtr b -> AjaxCallback r -> AjaxCallback r -> IO ()
+ajaxBackend :: (JS r, JS v) => (JSPtr a -> IO ()) -> AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
 ajaxBackend cont options valdata onSuccess onFailure = 
   do let jsOptions = toJSOptions options
      onSuccess' <- mkJSAjaxCallback onSuccess
@@ -64,7 +64,7 @@ ajaxBackend cont options valdata onSuccess onFailure =
      _ <- setAttr "data"    valdata                 o
      _ajaxQ (toJS "jcu_app") o
 
-ajax :: JS r => AjaxOptions a -> JSPtr b -> AjaxCallback r -> AjaxCallback r -> IO ()
+ajax :: (JS r, JS v) => AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
 ajax = ajaxBackend _ajax
 
 

diff --git a/uhc-jscript/src/Language/UHC/JScript/JQuery/AjaxQueue.hs b/uhc-jscript/src/Language/UHC/JScript/JQuery/AjaxQueue.hs
@@ -8,7 +8,7 @@ import Language.UHC.JScript.JQuery.Ajax
 
 import Language.UHC.JScript.Assorted (alert, _alert)
 
-ajaxQ  :: JS r => String -> AjaxOptions a -> JSPtr b -> AjaxCallback r -> AjaxCallback r -> IO ()
+ajaxQ  :: (JS r, JS v)  => String -> AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
 ajaxQ queuename = ajaxBackend (_ajaxQ $ toJS queuename)
 
 foreign import jscript "$.ajaxq(%*)"