diff options
| author | Ben Sima <ben@bsima.me> | 2020-04-12 12:15:49 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-04-12 19:01:15 -0700 |
| commit | 46a680f7ca7def264a0f0b616883fb8e47271bab (patch) | |
| tree | 92020970623359e6dc76f02d7c537c846c1d4ed9 /Com/InfluencedByBooks/Client.hs | |
| parent | 72e42deeb5d5b9cd2765d2ff20a06e708f8efc07 (diff) | |
De-namespace Alpha
A bunch of formatting changes got in there too. Oops.
I will probably eventually de-namespace everything, mostly because I'm
tired of typing "Com.Whatever.Thing" all the time. A better namespacing
strategy might be to use normal Haskell namespacing (Data, Control,
Network, etc) for code that is not specific to biz activities (i.e. if I
could open-source it at any time), and use simply "Biz" for stuff that I
would never want to open-source.
Diffstat (limited to 'Com/InfluencedByBooks/Client.hs')
| -rw-r--r-- | Com/InfluencedByBooks/Client.hs | 28 |
1 files changed, 17 insertions, 11 deletions
diff --git a/Com/InfluencedByBooks/Client.hs b/Com/InfluencedByBooks/Client.hs index a7da344..8c70a04 100644 --- a/Com/InfluencedByBooks/Client.hs +++ b/Com/InfluencedByBooks/Client.hs @@ -16,17 +16,23 @@ -- : dep ghcjs-base module Com.InfluencedByBooks.Client where -import Com.InfluencedByBooks.Core (Action(..), see, init) -import Com.InfluencedByBooks.Move (move) -import Com.Simatime.Alpha -import Miso (App(..), defaultEvents, miso) +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 + where + initialAction = FetchPeople + update = move + view = see + events = defaultEvents + subs = [] + mountPoint = Nothing |