notes-examples/halogen-routing/src/Page/Home.purs

module Page.Home where

import Prelude
import Data.Symbol ( SProxy(..) )
-- Halogen
import Halogen as H
import Halogen.HTML as HH

type Slot p = forall query. H.Slot query Void p

_home :: SProxy "home"
_home = SProxy

component :: forall q i o m. H.Component HH.HTML q i o m
component =
  H.mkComponent
  { initialState: identity
  , render
  , eval: H.mkEval H.defaultEval
  }

render :: forall state action m. state -> H.ComponentHTML action () m
render _ = HH.h1_ [ HH.text "Home Page" ]