diff options
Diffstat (limited to 'com/influencedbybooks/aero.hs')
-rw-r--r-- | com/influencedbybooks/aero.hs | 21 |
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 |