@@ -1,22 +1,20 @@
11module Main where
22
3−import Prelude
3+import Prelude.Default
44
5−import Data.Maybe (Maybe(..))
6−import Effect (Effect)
5+import Components.Example as Example
76import Effect.Exception (throw)
87import React.Basic (JSX)
98import React.Basic.DOM (render)
10−import React.Basic.DOM as R
119import Web.DOM (Element)
1210import Web.DOM.NonElementParentNode (getElementById)
1311import Web.HTML (window)
1412import Web.HTML.HTMLDocument (toNonElementParentNode)
1513import Web.HTML.Window (document)
1614
17−-- | The main JSX/React Component for this single-page-application.
18−app :: JSX
19−app = R.text "Hello, PureScript!"
15+-- | Constructs the main React Component for this single-page-application.
16+mkApp :: Effect JSX
17+mkApp = Example.component <#> (_ $ 0)
2018
2119-- | The id of the HTML element which will wrap the React App.
2220-- | It needs to match your `index.html` file, for example:
@@ -31,6 +29,7 @@ containerId = "container"
3129main :: Effect Unit
3230main = do
3331 container <- getContainerById containerId
32+ app <- mkApp
3433 render app container
3534
3635-- | Finds an Element based on its ID in