Construct actions recursively during render. Fixes #14.

src/Pux.js

@@ -39,8 +39,6 @@ exports.renderToString = function (htmlSignal) {
 };
 
 exports.render = function (input, parentAction, html) {
-  if (typeof html === 'string') return html;
-
   var props = html.props
   var newProps = {};
 
@@ -52,7 +50,17 @@ exports.render = function (input, parentAction, html) {
 
   var newChildren = React.Children.map(html.props.children, function (child) {
     var childAction = child.props && child.props.puxParentAction;
-    return exports.render(input, childAction || parentAction, child);
+    var action = parentAction;
+    if (childAction) {
+      action = function (a) {
+        return parentAction(childAction(a));
+      };
+    }
+    if (typeof child === 'string') {
+      return child;
+    } else {
+      return exports.render(input, action, child);
+    }
   });
 
   return React.cloneElement(html, newProps, newChildren);

src/Pux/Html.js

@@ -11,9 +11,15 @@ exports.append = function (html1, html2) {
   return html1.concat(html2);
 };
 
-exports.mapActions = function (parentAction, html) {
-  var childAction = html.props.puxParentAction;
-  return React.cloneElement(html, {
-    puxParentAction: childAction ? parentAction(childAction) : parentAction
-  });
+exports.forwardTo = function (parentAction) {
+  return function (html) {
+    var childAction = html.props.puxParentAction;
+    var action = parentAction;
+    if (childAction) {
+      action = function (a) {
+        return parentAction(childAction(a));
+      }
+    }
+    return React.cloneElement(html, { puxParentAction: action });
+  };
 };

src/Pux/Html.purs

@@ -46,10 +46,7 @@ foreign import append :: forall a. Fn2 (Html a) (Html a) (Html a)
 -- |     forwardTo Bottom $ Counter.view state.bottomCount
 -- |     button ! onClick (const Reset) # text "Reset"
 -- | ```
-forwardTo :: forall a b. (a -> b) -> Html a -> Html b
-forwardTo a2b html = runFn2 mapActions a2b html
-
-foreign import mapActions :: forall a b. Fn2 (a -> b) (Html a) (Html b)
+foreign import forwardTo :: forall a b. (a -> b) -> Html a -> Html b
 
 -- | Combine elements with attributes.
 -- |