blob: 8c70a04919632bdd6fbb01340f97bcb606e92013 (
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 Com.InfluencedByBooks.Client where
import Alpha
import Com.InfluencedByBooks.Core ( Action(..)
, see
, init
)
import Com.InfluencedByBooks.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
|
