Fix R.named

src/Reactix/React.js

@@ -47,4 +47,4 @@ exports._createContext = function(ctor, val) {
 
 exports._render = function(a,b) { return react_dom.render(a,b); };
 
-exports._named = function(name, f) { f.name = name; return f; };
+exports._named = function(name, f) { Object.defineProperty(f, 'name', {value: name, writable: false}); return f; };

src/Reactix/React.purs

@@ -74,7 +74,7 @@ pureLeaf ::
   => String
   -> (Record props -> Element)
   -> Component props
-pureLeaf name f = named named $ Component (mkEffectFn1 $ pure <<< f)
+pureLeaf name f = named name $ Component (mkEffectFn1 $ pure <<< f)
 
 -- | Creates a pure tree component from a function
 pureTree ::

test/Reactix/React/Spec.purs

@@ -46,7 +46,7 @@ staticTest =
 type CounterProps = ( count :: Int )
 
 counterCpt :: R.Component CounterProps
-counterCpt = R.hooksLeaf cpt
+counterCpt = R.hooksLeaf "Counter" cpt
   where
     cpt :: forall m. R.MonadHooks m => Record CounterProps -> m R.Element
     cpt {count} = do