blob: 705abef67b857c1a29fce8aaff5617f01e60bc77 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-}
-- | Front-end
module Ibb where
import Alpha
import Biz.Ibb.Move (move)
import Biz.Ibb.Core (Action(..), see, init)
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
|
