Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Also add modAttr_

  • Loading branch information...
commit a8e2a52e1a9bf3f4d2b7a5d8eeed46e2b75e49f1 1 parent bdd30b8
@norm2782 norm2782 authored
Showing with 3 additions and 0 deletions.
  1. +3 −0  uhc-jscript/src/Language/UHC/JScript/Primitives.hs
View
3  uhc-jscript/src/Language/UHC/JScript/Primitives.hs
@@ -65,6 +65,9 @@ foreign import prim "primPureSetAttr"
modAttr :: String -> (a -> b) -> JSPtr p -> IO (JSPtr p)
modAttr s f p = _modAttr (toJS s) f p
+modAttr_ :: String -> (a -> b) -> JSPtr p -> IO ()
+modAttr_ s f p = modAttr s f p >> return ()
+
foreign import prim "primModAttr"
_modAttr :: JSString -> (a -> b) -> JSPtr p -> IO (JSPtr p)
Please sign in to comment.
Something went wrong with that request. Please try again.