Biz/Ibb/Client.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-}

-- | Front-end
--
-- : exe ibb.js
--
-- : dep clay
-- : dep miso
-- : dep protolude
-- : dep servant
-- : dep text
-- : dep aeson
-- : dep containers
-- : dep ghcjs-base
module Biz.Ibb.Client where

import Alpha
import Biz.Ibb.Core
  ( Action (..),
    init,
    see,
  )
import Biz.Ibb.Move (move)
import Miso
  ( App (..),
    defaultEvents,
    miso,
  )

main :: IO ()
main = miso $ \u -> App {model = init u, ..}
  where
    initialAction = FetchPeople
    update = move
    view = see
    events = defaultEvents
    subs = []
    mountPoint = Nothing