Fix ComponentSpec state

Author: maddie927

src/React/Basic.purs

@@ -106,8 +106,8 @@ import Type.Row (class Union)
 -- |   a React-Basic component from JavaScript, use `toReactComponent`.__
 -- |
 -- | __*See also:* `Component`, `ComponentSpec`, `make`, `makeStateless`__
-type ComponentSpec props state action =
-  ( initialState :: state
+type ComponentSpec props state initialState action =
+  ( initialState :: initialState
   , update       :: Self props state action -> action -> StateUpdate props state action
   , render       :: Self props state action -> JSX
   , shouldUpdate :: Self props state action -> props -> state -> Boolean
@@ -146,10 +146,6 @@ foreign import createComponent
    . String
   -> Component props
 
--- | A simplified alias for `ComponentSpec`. This type is usually used to represent
--- | the default component type returned from `createComponent`.
--- type Component props = forall state action. ComponentSpec props state action
-
 -- | Opaque component information for internal use.
 -- |
 -- | __*Note:* Never define a component with
@@ -289,9 +285,9 @@ foreign import readState :: forall props state action. Self props state action -
 -- | __*See also:* `makeStateless`, `createComponent`, `Component`, `ComponentSpec`__
 foreign import make
   :: forall spec spec_ props state action
-   . Union spec spec_ (ComponentSpec props state action)
+   . Union spec spec_ (ComponentSpec props state state action)
   => Component props
-  -> { render :: Self props state action -> JSX | spec }
+  -> { initialState :: state, render :: Self props state action -> JSX | spec }
   -> props
   -> JSX
 
@@ -318,7 +314,7 @@ makeStateless
   -> props
   -> JSX
 makeStateless component render =
-  make component { render: \self -> render self.props }
+  make component { initialState: unit, render: \self -> render self.props }
 
 -- | Represents rendered React VDOM (the result of calling `React.createElement`
 -- | in JavaScript).
@@ -430,7 +426,7 @@ data ReactComponentInstance
 -- | __*See also:* `ReactComponent`__
 foreign import toReactComponent
   :: forall spec spec_ jsProps props state action
-   . Union spec spec_ (ComponentSpec props state action)
+   . Union spec spec_ (ComponentSpec props state state action)
   => ({ | jsProps } -> props)
   -> Component props
   -> { render :: Self props state action -> JSX | spec }