React 16

src/React.js

@@ -127,6 +127,21 @@ function createClass(toNullable, spec) {
 }
 exports["createClass'"] = createClass;
 
+function capitalize(s) {
+  if (!s)
+    return s;
+  return s.charAt(0).toUpperCase() + s.slice(1);
+};
+
+function createClassStateless(dict) {
+  return function (f) {
+    if (!f.displayName)
+      f.displayName = capitalize(f.name);
+    return f;
+  };
+};
+exports.createClassStateless = createClassStateless;
+
 function forceUpdateCbImpl(this_, cb) {
   this_.forceUpdate(function() {
     return cb();

src/React.purs

@@ -372,11 +372,17 @@ createClass :: forall props state render eff.
   ReactSpec props state render eff -> ReactClass props
 createClass spc = runFn2 createClass' toNullable spc
 
--- | Create a stateless React class.
-createClassStateless :: forall props render.
+-- | Create a stateless React class.  When using a non anonymous function the
+-- | displayName will be the capitalized name of the function, e.g.
+-- | ``` purescript
+-- | helloWorld = createClassStatelesss hellowWorldCls
+-- |    where
+-- |      hellowWorldCls props = ...
+-- | ```
+-- | Then the `displayName` will be set up to `HellowWorldCls`
+foreign import createClassStateless :: forall props render.
   ReactRender render =>
   (props -> render) -> ReactClass props
-createClassStateless = unsafeCoerce
 
 -- | Create a stateless React class with children access.
 createClassStateless' :: forall props render.