Permalink
Browse files

* binding to replaceWith

  • Loading branch information...
1 parent 51ba75a commit 457363e50985b4255afdf6145a304befd4fe6c46 @spockz committed Jan 15, 2012
Showing with 8 additions and 0 deletions.
  1. +8 −0 uhc-jscript/src/Language/UHC/JScript/JQuery/JQuery.hs
@@ -215,6 +215,14 @@ appendString jq str = do jq' <- jQuery str
foreign import jscript "%1.append(%*)"
_append :: JQuery -> JQuery -> IO ()
+replaceWith :: JQuery -> JQuery -> IO ()
+replaceWith = _replaceWith
+
+foreign import jscript "%1.replaceWith(%2)"
+ _replaceWith :: JQuery -> JQuery -> IO ()
+
+replaceWithString :: JQuery -> String -> IO ()
+replaceWithString jq s = jQuery s >>= replaceWith jq
-------------------------------------------------------------------------------
-- Dynamic loading

0 comments on commit 457363e

Please sign in to comment.