blob: f7ee2af24052423032be76526b0c2b1fcb434fa9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-}
-- | Front-end
module Ibb where
import Alpha
import Biz.Ibb.Move
import Miso
main :: IO ()
main = miso $ \u -> App { model = init u, .. }
where
initialAction = FetchPeople
update = move
view = see
events = defaultEvents
subs = []
mountPoint = Nothing
|
