Move displayName functions to FFI

Author: Michael Trotter

.gitignore

@@ -2,6 +2,7 @@
 /node_modules/
 /.pulp-cache/
 /output/
+/generated-docs/
 /.psc-package/
 /.psc*
 /.purs*

src/React/Basic.js

@@ -227,3 +227,11 @@ exports.fragmentKeyed_ = function(key, children) {
     [Fragment, { key: key }].concat(children)
   );
 };
+
+exports.displayNameFromComponentSpec = function($$spec) {
+  return $$spec.$$type.displayName || "[unknown]";
+};
+
+exports.displayNameFromSelf = function(self) {
+  return exports.displayNameFromComponentSpec(self.instance_.$$spec);
+};

src/React/Basic.purs

@@ -20,6 +20,8 @@ module React.Basic
   , element
   , elementKeyed
   , toReactComponent
+  , displayNameFromComponentSpec
+  , displayNameFromSelf
   ) where
 
 import Prelude
@@ -278,14 +280,12 @@ foreign import toReactComponent
    . ComponentSpec { | props } state state action
   -> ReactComponent { | props }
 
-displayNameFromComponentSpec
+foreign import displayNameFromComponentSpec
   :: forall props state initialState action
    . ComponentSpec props state initialState action
   -> String
-displayNameFromComponentSpec = _.displayName <<< unsafeCoerce <<< _."$$type"
 
-displayNameFromSelf
+foreign import displayNameFromSelf
   :: forall props state action
    . Self props state action
   -> String
-displayNameFromSelf = _.dislpayName <<< _."$$type" <<< _."$$spec" <<< unsafeCoerce <<< _.instance_