diff options
author | Ben Sima <ben@bsima.me> | 2019-03-27 16:24:07 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2019-03-27 16:24:07 -0700 |
commit | 1cfeff547d80eb61a1db8102f06011e73dd2fd9f (patch) | |
tree | 8efeed3a3c8245fe916494aeb49cb33980b7dea5 /aero | |
parent | 3f0471b314fa2792207b3116aa7491f5f353b31e (diff) |
almost working
Diffstat (limited to 'aero')
-rw-r--r-- | aero/Ibb.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/aero/Ibb.hs b/aero/Ibb.hs index 8376060..f7ee2af 100644 --- a/aero/Ibb.hs +++ b/aero/Ibb.hs @@ -1,16 +1,18 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE NoImplicitPrelude #-} -- | Front-end module Ibb where +import Alpha import Biz.Ibb.Move import Miso main :: IO () -main = miso $ \u -> App { model = Model u [], .. } +main = miso $ \u -> App { model = init u, .. } where - initialAction = Nop + initialAction = FetchPeople update = move view = see events = defaultEvents |