Fix statelessComponent

Author: Michael Trotter

src/React/Basic.js

@@ -121,76 +121,6 @@ exports.createComponent_ = function(noUpdate, buildStateUpdate, displayName) {
   };
 };
 
-exports.createStatelessComponent = function(displayName) {
-  function contextToSelf(instance) {
-    var self = {
-      props: instance.props.$$props,
-      state: null,
-      readProps: function() {
-        return self.instance_.props.$$props;
-      },
-      readState: function() {
-        return null;
-      },
-      send: function() {
-        return function() {};
-      },
-      instance_: instance
-    };
-    return self;
-  }
-
-  var defaultInitialState = null;
-  var defaultShouldUpdate = function() {
-    return function() {
-      return function() {
-        return true;
-      };
-    };
-  };
-  var defaultDidMount = function() {
-    return function() {};
-  };
-  var defaultDidUpdate = function() {
-    return function() {};
-  };
-  var defaultWillUnmount = function() {
-    return function() {};
-  };
-  var defaultUpdate = function() {
-    return function() {
-      return noUpdate;
-    };
-  };
-  var defaultRender = function() {
-    return false;
-  };
-
-  var Component = function constructor(props) {
-    this.$$spec = props.$$spec;
-    return this;
-  };
-
-  Component.prototype = Object.create(React.Component.prototype);
-
-  Component.displayName = displayName;
-
-  Component.prototype.render = function() {
-    return this.$$spec.render(contextToSelf(this));
-  };
-
-  return {
-    $$type: Component,
-    initialState: defaultInitialState,
-    shouldUpdate: defaultShouldUpdate,
-    didMount: defaultDidMount,
-    didUpdate: defaultDidUpdate,
-    willUnmount: defaultWillUnmount,
-    update: defaultUpdate,
-    render: defaultRender
-  };
-};
-
 exports.make = function($$spec) {
   return function($$props) {
     var props = {

src/React/Basic.purs

@@ -220,9 +220,9 @@ foreign import createComponent_
        })
 
 -- | Creates a named, stateless component
-foreign import createStatelessComponent
+createStatelessComponent
   :: String
-  -> { "$$type" :: forall props state action. ComponentType props state action
+  -> { "$$type" :: forall props state action. ComponentType props Void Void
      , initialState :: Void
      , shouldUpdate :: forall props. LimitedSelf props Void -> props -> Void -> Boolean
      , didMount :: forall props. Self props Void Void -> Effect Unit
@@ -231,6 +231,7 @@ foreign import createStatelessComponent
      , update :: forall props. Update props Void Void
      , render :: forall props. Self props Void Void -> JSX
      }
+createStatelessComponent = createComponent
 
 -- | An empty node. This is often useful when you would like to conditionally
 -- | show something, but you don't want to (or can't) modify the `children` prop