Client.purs

module Client where

import Prelude (bind, return)

import Pux (App, Config, CoreEffects, start, renderToDOM)

import Control.Bind ((=<<))
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE)
import DOM (DOM)
import Pux.Router (sampleUrl)
import Signal ((~>), Signal)
import Signal.Channel (subscribe)

import State (update)
import State.Types (Action(..), State)
import UReview.Routes (match)
import View.Layout (layout)
import Web.Firebase.Types (FirebaseEff)


-- split into main and config, see pux-starter-app
-- we need an init somewhere that creates a state out of nothing, to be used from JS
-- this should initialize the rootRef and channel, if we want to put it in state
-- a JS caller will (hopefully) not care about the side effects in initialState

config :: forall eff.  State -> Eff
             ( dom :: DOM | eff)
             (Config State Action (dom :: DOM, firebase :: FirebaseEff, console :: CONSOLE ))

config state = do
  -- | Create a signal of URL changes.
  urlSignal <- sampleUrl

  -- | Map a signal of URL changes to PageView actions.
  let routeSignal = urlSignal ~> \r -> PageView (match r)
  let firebaseSignal = subscribe state.channel :: Signal Action

  return
    { initialState: state
    , update: update
    , view: layout
    , inputs: [routeSignal, firebaseSignal] }

main :: State -> Eff (CoreEffects (dom :: DOM, firebase :: FirebaseEff, console :: CONSOLE) ) (App State Action)
main state = do
  app <- start =<< (config state)
  renderToDOM "#app" app.html
  -- return for hot reloading from index.js
  return app