From d480cce48d04d5e4353281f014f66fd61301c393 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sat, 15 Feb 2020 23:03:40 -0800
Subject: Split buildHaskellApp into buildGhc and buildGhcjs

Two functions makes it simpler to reason about what is being built and
when, even if it is a bit more explicit. I also removed the dumb
Apex/Aero naming thing because Server/Client is just easier to remember.
---
 Com/InfluencedByBooks/Client.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 Com/InfluencedByBooks/Client.hs

(limited to 'Com/InfluencedByBooks/Client.hs')

diff --git a/Com/InfluencedByBooks/Client.hs b/Com/InfluencedByBooks/Client.hs
new file mode 100644
index 0000000..cf45511
--- /dev/null
+++ b/Com/InfluencedByBooks/Client.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+-- | Front-end
+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)
+
+main :: IO ()
+main = miso $ \u -> App { model = init u, .. }
+  where
+    initialAction = FetchPeople
+    update = move
+    view   = see
+    events = defaultEvents
+    subs   = []
+    mountPoint = Nothing
-- 
cgit v1.2.3