Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

* Removed the JS value constraint for now. As UHC is crying about it.…

… (Same

  issue as with the Subst term?)
  • Loading branch information...
commit 1f492363707b37edc1d0604bcbc7d53086b5c2bf 1 parent 0c90744
@spockz authored
View
4 uhc-jscript/src/Language/UHC/JScript/JQuery/Ajax.hs
@@ -52,7 +52,7 @@ toJSOptions options = let url' = toJS (ao_url options)
}
-ajaxBackend :: (JS r, JS v) => (JSPtr a -> IO ()) -> AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
+ajaxBackend :: (JS r) => (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, JS v) => AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
+ajax :: (JS r) => AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
ajax = ajaxBackend _ajax
View
2  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, JS v) => String -> AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
+ajaxQ :: (JS r) => String -> AjaxOptions a -> v -> AjaxCallback r -> AjaxCallback r -> IO ()
ajaxQ queuename = ajaxBackend (_ajaxQ $ toJS queuename)
foreign import jscript "$.ajaxq(%*)"
Please sign in to comment.
Something went wrong with that request. Please try again.