blob: e40ff36a75a0cef63b30670c6d498d96776e2838 (
plain)
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
|
{-# LANGUAGE OverloadedStrings #-}
{-# 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(..)
, see
, init
)
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
|
