diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-15 09:54:10 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-15 10:06:56 -0700 |
| commit | f4b8c0df041b063c0b47d2ec6c818a9c202fd833 (patch) | |
| tree | 01ad246a83fda29c079847b3397ca6509a7f6106 /Com/InfluencedByBooks/Client.hs | |
| parent | 6ed475ca94209ce92e75f48764cb9d361029ea26 (diff) | |
Re-namespacing
Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.
Diffstat (limited to 'Com/InfluencedByBooks/Client.hs')
| -rw-r--r-- | Com/InfluencedByBooks/Client.hs | 38 |
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 |