blob: a7da34405fff924bdeb2da0dfdd0d1b9ad33425b (
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
|
{-# 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 Com.InfluencedByBooks.Core (Action(..), see, init)
import Com.InfluencedByBooks.Move (move)
import Com.Simatime.Alpha
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
|
