summaryrefslogtreecommitdiff
path: root/Com/InfluencedByBooks/Client.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Com/InfluencedByBooks/Client.hs')
-rw-r--r--Com/InfluencedByBooks/Client.hs38
1 files changed, 0 insertions, 38 deletions
diff --git a/Com/InfluencedByBooks/Client.hs b/Com/InfluencedByBooks/Client.hs
deleted file mode 100644
index 8c70a04..0000000
--- a/Com/InfluencedByBooks/Client.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-
--- | Front-end
---
--- : exe ibb.js
---
--- : dep clay
--- : dep miso
--- : dep protolude
--- : dep servant
--- : dep text
--- : dep aeson
--- : dep containers
--- : dep ghcjs-base
-module Com.InfluencedByBooks.Client where
-
-import Alpha
-import Com.InfluencedByBooks.Core ( Action(..)
- , see
- , init
- )
-import Com.InfluencedByBooks.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