summaryrefslogtreecommitdiff
path: root/com/influencedbybooks/aero.hs
diff options
context:
space:
mode:
Diffstat (limited to 'com/influencedbybooks/aero.hs')
-rw-r--r--com/influencedbybooks/aero.hs21
1 files changed, 21 insertions, 0 deletions
diff --git a/com/influencedbybooks/aero.hs b/com/influencedbybooks/aero.hs
new file mode 100644
index 0000000..92d071d
--- /dev/null
+++ b/com/influencedbybooks/aero.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+-- | Front-end
+module Com.InfluencedByBooks.Aero where
+
+import Com.Simatime.Alpha
+import Com.InfluencedByBooks.Move (move)
+import Com.InfluencedByBooks.Core (Action(..), see, init)
+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