Main.purs

module Main (main) where

import Prelude (Unit, ($), pure, unit)
import Data.Maybe (Maybe(..))
import Data.Nullable (toMaybe)
import DOM.Simple (Element)
import DOM.Simple.Document (document)
import DOM.Simple.Console (log)
import Effect (Effect)
import FFI.Simple ((...), args2, delay)
import Reactix as R
import Reactix.DOM.HTML as H

main :: Effect Unit
main = paint $ toMaybe (document ... "getElementById" $ [ "app" ])

paint :: Maybe Element -> Effect Unit
paint Nothing = log "[main] Container not found"
paint (Just c) = render (app {}) c

render :: R.Element -> Element -> Effect Unit
render e d = delay unit $ \_ -> pure $ R.reactDOM ... "render" $ args2 e d

app :: {} -> R.Element
app props = R.createElement appCpt props []

appCpt :: R.Component ()
appCpt = R.hooksComponent "HelloJohnny" cpt where
  cpt _ _ = pure (H.div {} [H.text "Hello Johnny"])