Permalink
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...
1 parent 0c90744 commit 1f492363707b37edc1d0604bcbc7d53086b5c2bf @spockz committed Jan 12, 2012
@@ -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
@@ -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(%*)"

0 comments on commit 1f49236

Please sign in to comment.