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