summaryrefslogtreecommitdiff
path: root/Biz/Ibb/Client.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2020-12-30 12:20:07 -0500
committerBen Sima <ben@bsima.me>2020-12-30 12:20:07 -0500
commitf0895bfd73c53d9d5d9811c632d8e6f5e99dc0d4 (patch)
tree29c446dc76c8c4f14cea67189c3d91ad0b1db4cc /Biz/Ibb/Client.hs
parent2d6075d13a9d2cf023cb34a079b0c071af9ee650 (diff)
Remove Biz/Ibb
Diffstat (limited to 'Biz/Ibb/Client.hs')
-rw-r--r--Biz/Ibb/Client.hs39
1 files changed, 0 insertions, 39 deletions
diff --git a/Biz/Ibb/Client.hs b/Biz/Ibb/Client.hs
deleted file mode 100644
index efe4e84..0000000
--- a/Biz/Ibb/Client.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-
--- | Front-end
---
--- : out ibb.js
---
--- : dep clay
--- : dep miso
--- : dep protolude
--- : dep servant
--- : dep text
--- : dep aeson
--- : dep containers
--- : dep ghcjs-base
-module Biz.Ibb.Client where
-
-import Alpha
-import Biz.Ibb.Core
- ( Action (..),
- init,
- see,
- )
-import Biz.Ibb.Move (move)
-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