{-# 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